foreach my $i (1..$count) {
  ...
}