$ perl -le'
use Data::Dumper;
my @a = "A" .. "D";
my %hash;
$hash{@a} = (0) x @a;
print Dumper \%hash;
'
$VAR1 = {
          '4' => '0000'
        };