Select Code to Download

    my @bottles_of_beer
       = map {join "", "$_ bottle", $_ ne 1 && 's' || '', " of beer"},
...
            "Take one down, pass it around,\n",
            "@bottles_of_beer[--$n] on the wall.\n";
    }

    sub bottles {
        my ($n) = @_;
...
        say  bottles($_ - 1), " of beer on the wall.";
        say  "";
    }