callme (\@params, $i);

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