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


in reply to Bottle Golf

#!/usr/bin/perl -w
print join "\n", map { "and if 1 green bottle should accidentally fall
+\n"
   ."there'll be " . ($_-1) . " green bottle"
   .plural($_) . ", standing on a wall\n" } (reverse 1..10);

sub plural {return $_-1?'s':'';}

[download]
whitespace added for clarity

In Section Seekers of Perl Wisdom