sub mysub {
 my @p = @_; #the array 1,2,3....10
...