my $hash;
$hash = { $_ => $hash } for reverse @array;


##</code><code>##

my $ref = \$hash;
$ref = \$$ref->{$_} for @b;