for my $i (0..@array) {
  $array[$i]++;
}