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