引数の受取り方法

1

my ($hoge1, $hoge2, $hoge3) = @_;

1
2
3

my $hoge1 = shift;
my $hoge2 = shift;
my $hoge3 = shift;