my $x if 0;     #warns
my $x if "";    #warns
my $x if undef; #OK
my $x = 0 if 0; #OK

##</code><code>##

use warnings;
sub a { my $x = 0 if undef;  print ++$x }
a for 1 .. 3;