use strict;

my @a = (0..4);
my @b = ('a'..'e');

&foo(@a,@b);
&bar(\@a,\@b);

sub foo {
 my (@a,@b) = @_;
 print "a: ", join(',',@a), "\n";
 print "b: ", join(',',@b), "\n";
}

sub bar {
 my ($a,$b) = @_;
 print "a: ", join(',',@$a), "\n";
 print "b: ", join(',',@$b), "\n";
}