sub test1 {
  my ($a) = @_;
  print "\$a = $a\n";
  print "\@_= (",join(",",@_),")\n";
}
sub test2 {
  my $a = shift;
  print "\$a = $a\n";
  print "\@_= (",join(",",@_),")\n";
}

test1(1,2,3,4,5,6,7);
test2(1,2,3,4,5,6,7);