my @ar = (1, 2, 3);
for my $i (0 .. $#ar) {
  $i = $i + 1;
}

print join ", ", @ar; # prints 1, 2, 3