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