sub tuwas (@array1, @array2)
    {
    my $param1 = @array1;    
    my $param2 = @array2;
..........................
    }