Select Code to Download

my $var1 : shared; 
sub vary {
...
 $$vary_ref = 1 ;
}
vary (\$var1);

my $var1 : shared; 
$var_ref = shift ;
...
lock ($$var_ref);
 $$vary_ref = 1 ;
}