for ( my $i = 1; $i <= 10; $i++ ) {
  ...
}

for ( 1 .. 10 ) {
  ...
}