my $noun = 'iteration';

for my $count (0..2) { 
  my $declension = 's' x (abs($count) != 1);
  print "$count $noun$declension so far...\n";
}