callme (@params,$i);

sub callme
{
    @params = @_;
    $sec = $_;
    #...
}

##</code><code>##

callme ($i, @params);

sub callme
{
  my $sec = shift @_;
  my @par = @_;
}

##</code><code>##

callme (\@params, $i);

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

##</code><code>##

callme (\@params, $i);

sub callme
{
  my @par = @{shift @_};
  my $sec = shift @_;
}