$ perl -MO=Deparse -e 'foo(\my $bar)'
foo \my($bar);
-e syntax OK

$ perl -MO=Deparse -e 'my $bar; foo(\$bar)'
my $bar;
foo \$bar;
-e syntax OK