I would write it like merlyn did except less tersely:

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