ok... I wanted to write also this, but didn't done that ... but now will do :

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

Later :

 mysub(my \$somvar,$echo)
 print $somevar
[download]

instead of :

sub mysub ()
{ 
 my (\$var1,$var2) = @_;
}
my $somvar = 12;
my $refvar = \$somvar;
mysub($refvar,$echo)
print $somevar
[download]

my 5c