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

##</code><code>##

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);

##</code><code>##

$a = 1
@_= (1,2,3,4,5,6,7)

##</code><code>##

$a = 1
@_= (2,3,4,5,6,7)