#!/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':'';}