my @apple = (1,2,3,4);
my @pear = (5,6,7,8);

&test(\@apple, \@pear);

sub test ()
{
        my ($one, $two) = @_;


foreach ( @{$one} ) {
        print "\n$_";
}
print "\n========================";
foreach ( @{$two} ) {
        print "\n$_";
}



}

print "\nThere are @{$two} items in Two.";

print "\n";