sub mysub (\$var1,$var2)
{ ..code..
 $var1 = "Hello";#this changes $somvar later in the code
}