shebang perl; use strict; foreach haiku (my $pen writes) { $pen=>writes(less_perl); last; }