Select Code to Download

my @list=qw(a b c d e f g);

my %hash;
my $hptr=\%hash;
$hptr = $hptr->{$_}||={} foreach @list;