The problem lies in this snippet:

callme (@params,$i);

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

That's because all parameters passed to a sub end up beeing members of @_. What you need is to specify the scalar first or use references.
Do it like so:

callme ($i, @params);

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

or

callme (\@params, $i);

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

or

callme (\@params, $i);

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

Whatever you like better. All this is explained in perlsub and perlref.

Update: fixed typos