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