Select Code to Download

use strict;

...
 print "a: ", join(',',@$a), "\n";
 print "b: ", join(',',@$b), "\n";
}

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

  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.