$i = 5;
LINE: print "got here\n"; --$i and goto LINE;