foreach my $i (0..4) {
  # Whatever
}