my @keyset = qw/this repeat that repeat/
my @valset = qw/jerry george elaine kramer/;
my %hash;
@hash{@keyset} = @valset;
print "$_: $hash{$_}\n" foreach keys %hash;
__OUTPUT__
that: elaine
this: jerry
repeat: kramer