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";
}

##</code><code>##

my ($a,$b) = @_;

##</code><code>##

  You can actually put an array or hash anywhere in the
  list [subroutine arguments which are passed to @_],
  but the first one in the list will soak up all the
  values, and anything after it will become undefined.