map { print "$_ bottle@{[$_!=1&&s=>]} of beer on the wall, $_ bottle@{[$_!=1&&s=>]} of beer.  Take 1 down, pass it around, ".($_-1)." bottle@{[$_-1!=1&&s=>]} of beer on the wall.\n" } reverse 1..99;