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