my @hash{@keys} = @values;

##</code><code>##

my %hash; @hash{@keys} = @values;

##</code><code>##

my %hash = map { $keys[$_] => $values[$_] } 0..$#keys;

##</code><code>##

@$_{@keys} = @values for \my %hash;