c:\test>perl -MO=Deparse -e "my $c; 1 ? $c : my( $d ); $d"
my $c;
$c;
$d;
-e syntax OK