RosettaCodeData/Task/Hash-from-two-arrays/Perl/hash-from-two-arrays-1.pl

my @keys = qw(a b c);
my @vals = (1, 2, 3);
my %hash;
@hash{@keys} = @vals;