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