in reply to Pluralize nouns

for $item ( 0..3 ){
  print "$item item",$item!=1&&"s","\n";
}

[download]

In Section Cool Uses for Perl