Select Code to Download

my @keys = qw( key1 key2 key3 );
my %hash;
map {$hash{$_}=0} @keys;

@keys = qw( a b c );
@values = qw ( 1 2 3 );
my %hash;
$hash{$_} = shift @values for @keys;