引数を指定しないと、暗黙に@_が渡される。 かつ引数は参照渡しになる。 my @list = qw(1 2 3 4 5); test(@list); sub test { &print_args; &change_args; &print_args; } sub print_args { print "@_\n"; } sub change_args { @_ = qw(6 7 8 9 0); } 実行結…