サブルーチンに複数の配列を渡す

リファレンスを使わない方法。さっきのpermutationがこれを使っている。

ミソは配列を[]で囲むことだ。

my @fruits = qw /apple banana orange strawberry/;
my @animals = qw /dog cat cow horse/;

&menz([@fruits],[@animals]);

sub menz{
my @array1 = @{ $_[0] };
my @array2 = @{ $_[1] };

print "array1:@array1\n";
print "array2:@array2\n";
}