>perl -wle"print('x'),last while 1; print('y');"
x
Can't "last" outside a loop block at -e line 1.

>perl -wle"print('x'),last for qw(a b c); print('y');"
x
y