You can use tye's Data::Diver:

use Data::Diver qw( DiveVal );

my %hash;

my @keys = qw( A B C D E F ... );
DiveVal(\%hash, @keys);
[download]

Caveat: It won't work if one of the keys looks like a number.

Tested.