in reply to 99 bottles, 2 lines

$a='on the wall';$b=99;$c="bottles of beer";do{print"$b $c $a, $b $c\nTake one down, pass it around\n$b $c $a!\n\n"}while(($b--)>0)