my $var1 : shared; sub vary { $var_ref = shift ; lock ($$var_ref); $$vary_ref = 1 ; } vary (\$var1); #### my $var1 : shared; $var_ref = shift ; { lock ($$var_ref); $$vary_ref = 1 ; }