$ perl -Mstrict -Mwarnings -e  ' my $c = 1 if 1; print $c;'
1
~
$ perl -Mstrict -Mwarnings -e  ' my $c if 1; print $c;'
Use of uninitialized value $c in print at -e line 1.