ben goofs off with 99 bottles

99.pl

#!/usr/bin/env perl 
use strict;
use warnings;
use feature qw{say};

sub bottles($) { sprintf qq{%s bottle%s of beer}
               , $_ || 'No' 
               , $_==1 ? '' : 's'; 
               }
sub store()    { $_=99; qq{Go to the store, buy some more...\n}; }
sub wall()     { qq{ on the wall\n} }
sub take()     { $_ ? qq{Take one down, pass it around\n} : store }
do { print bottles $_, wall
         , bottles $_, qq{\n}
         , take 
         , bottles $_-1, qq{\n\n}
   } for reverse 0..99;