The $bit variable in initToggle is superfluous:

sub makeToggle {
  my $limit = shift;
  my $count = 0;
  die "makeToggle() requires a positive argument\n" unless $limit > 0;
  return sub {
    !($count++ % $limit);
  }
}
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print