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

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