# PERL 6!!!!
@array1 = ( 1..5 );
@array2 = ( 6..10 );
do_array_magic( @array1, @array2 );
#...
#...
sub do_array_magic ( ARRAY $a, ARRAY $b ) {
  # @a is [ 1,2,3,4,5]
  # @b is [ 6,7,8,9,10 ]  
}

##</code><code>##

# PERL 5
@array1 = ( 1..5 );
@array2 = ( 6..10 );
do_array_magic( @array1, @array2 );
#...
#...
sub do_array_magic {
   (@a, @b) = @_;
   # @a is [1..10]
   # @b is empty.
}