for (1..10) {
  my $i = $_;
  # some stuff with $i
}