Select Code to Download

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

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

@hash{@keys} = @values;