I wrote this a long time ago, but thought it was worth a post
my @life = (is, out ,of , control);
while (i,am,awake) {
I: print "books about my phobias";
PLEASE: warn "me about the consipiracies against me";
PLEASE;
PLEASE;
PLEASE;
for $i (am,alive) {
die "and pay taxes ,i must";
}
}