Select Code to Download

callme (@params,$i);

...
    $sec = $_;
    #...
}

callme ($i, @params);

...
  my $sec = shift @_;
  my @par = @_;
}

callme (\@params, $i);

...
  my @par = @{$_[0]};
  my $sec = $_[1];
}

callme (\@params, $i);

...
  my @par = @{shift @_};
  my $sec = shift @_;
}