callme (@params,$i);

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