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