$a=shift;@b=(" bottles of beer"," on the wall,$/",
"$/Take one down, pass it around,");
do{print$a,@b[0,1],$a,@b[0,2];print$/,--$a,@b[0,1],$/}
while$a;print"*burp*";