for my $count (0..2) {
  my $s = (1 == $count)? "": "s";
  print "$count iteration$s so far...\n";
}

##</code><code>##

for my $cheese_eaters (0..2) {
  my $noun = (1 == $count)? "mouse": "mice";
  print "$cheese_eaters $noun so far...\n";
}