$_ = 'hi' for @list[map {$_ * 2} 0..$#list/2];

##</code><code>##

for (my $i = 0; $i <= $#list; $i += 2) {
  $list[$i] = 'hi';
}