choroba@still ~ $ perl -wE 'L: for my $x (qw(a b c)) { say("$x$_"), last for 1,2,3}'
a1
b1
c1
choroba@still ~ $ perl -wE 'L: for my $x (qw(a b c)) { say("$x$_"), last L for 1,2,3}'
a1