Select Code to Download

my @keys = qw{ a b c d };
my %hash = map { $_,1 } @keys;

my %hash;
foreach ( @keys ) {
    $hash{$_}++;
}