callme (\@params, $i);

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