Select Code to Download

use strict;

my @keys = (1..3); my @values = (4..6);
...
my %hash = map {$keys[$_] => $values[$_]} (0..$#keys); # Far too long-
+winded

no strict; @hash{@keys} = @values; # works, but ew