And in complete contrast...a homage to the great Joe Pasquale - guaranteed to annoy coders and non-coders alike :)
ANNOY: print "I know a song that'll ", map {"get on your nerves,\n"}(0..(2*(1-$_)))for(0..1); print "and it goes like this....\n"; goto ANNOY;
I wonder if there's an iterative solution...<g>