in reply to Hash slices and too many keys
@hash{@keys} = map { ($_ > $#values) ? '' : $values[$_] } (0..$#keys); [download]