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