LABEL: for my $x (@a) { next LABEL }
FOO: { redo FOO }
BAR: while (1) { last BAR }