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