Just a little tighter, without getting too obfuscated:

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