saturday-night-no-beer.pl6

my @a = ('99 bottles', 'take one down', '98 bottles');
for @a {
     say "$^a of beer on the wall, $^a of beer.$^b, $^c of beer on the wall.".tc;
}
my @b = ('99 bottles', 'take one down', '98 bottles'), ('98 bottles', 'take one down', '97 bottles');
say @b.perl;
for @b {
     say "$^a of beer on the wall, $^a of beer.$^b, $^c of beer on the wall.".tc;
}