c:\>perl -le "sub f(\@\@) { print 'array ', ++$cnt ,': ', join ' ', @$_ for @_ } @a=(1..5, 11,12);@b=(13..15); f @a, @b"
array 1: 1 2 3 4 5 11 12
array 2: 13 14 15