@foo{@keys} = @values;
# instead of
$foo{$_} = shift(@values) foreach @keys