Select Code to Download

use List::MoreUtils 'zip';

...
@values = qw/foo bar baz/;

my %h = zip @keys, @values;