どうでもいいけどmy使おうね。ついでに、サブルーチン引数は名前をつけるという意味でも以下のようにしたほうがいい。
sub foo{
my($first, $second, @other) = @_;
# ...
}
foo(1, 3, 4 .. 10);