for ('haiku','will'){print 'just another perl hacker'; exit or die next}