my $ptr = \%hash;
$ptr = $ptr->{shift @array} = {} while @array > 1;
$ptr->{$array[0]} = 1;