sub b{@b=(-$_++||99,bottl.($_?es:e),of,beer);"@b on the wall"}print+b,", @b.
",$_?"Take one down and pass it around, ":"Go to the store and buy some more, ",b,".

"for-99..-1