Select Code to Download

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

 mysub(my \$somvar,$echo)
 print $somevar

sub mysub ()
...
my $refvar = \$somvar;
mysub($refvar,$echo)
print $somevar