perl -le 'BAR: print 1; BAZ: for (2..3) {print; redo BAR; }'

##</code><code>##

perl -le 'BAR: print 1; BAZ: for (2..3) {print; goto BAR; }'