Select Code to Download

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

sub test1 {
  my ($a) = @_;
...

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

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

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