$ perl -wMstrict -e 'my $x = $_ for "a"; print $x'
Use of uninitialized value $x in print at -e line 1.