Do I get a simple bonus if I turn your code into a one liner :)

my $h = pop @array; $h = {$_ => $h} for reverse @array;
[download]