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