#!/path/to/perl -w

use strict;
my @array1 = (0..9);
my @array2 = ('a'..'l');

my (@a1, @a2) = g(\@array1, \@array2);
print "\@a1 = @a1\n";
print "\@a2 = @a2\n";


sub g {
	print "sub g\n";
    my @a1 = @{(shift)};
    my @a2 = @{(shift)};

    print "$_ " for @a1;
    print "\n";
    print "$_ " for @a2;
    print "\n";
    return (@a1, @a2);
}