# Preserves any pre-existing anonymous hashref.
@hr = map{ $hr[$_]->{k} = $val[$_] } 0 .. $#hr;

##</code><code>##

# Preserves any pre-existing anonymous hashref.
$hr[$_]->{k} = $val[$_] for 0 .. $hr;