$x=$_*2,print("$x\n") for 1..10;

$y=3,$z=4 if !defined $foo;
print "\$y=$y, \$z=$z\n";