>perl -wle 'print($x, (my $x = 42), $x);print "now $x"'
Use of uninitialized value $x in print at -e line 1.
Use of uninitialized value $x in print at -e line 1.
42
now 42