foreach(1..99){$b="\n$_ bottle@{[$_!=1&&s=>]} of beer";push@a,",\nTake one down, pass it round,$d@{$d=$b.' on the wall'}\n",$d.$b};print reverse@a;