foreach my $i (0..$#list) {
  $list[$i] = "hi" unless $i%2; # Change evens
}