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