Re^2: transform array into a data structure

[calin]

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

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