http://www.perlmonks.org?node_id=46624

For those of you who don't know, a Haiku is japanese poetry, which consists of 3 unrhyming lines, with 5, 7 and 5 syllables in each respectively.
shebang perl; use strict; foreach haiku (my $pen writes) { $pen=>writes(less_perl); last; }