for my $i (0..$#keys) {
   ${$keys[$i]} = $values[$i];
}

##</code><code>##

use List::MoreUtils qw( pairwise );
pairwise { ${$a} = $b } @keys, @values;

##</code><code>##

@hash{@keys} = @values;