Help for this page
use Data::Dumper; $Data::Dumper::Deepcopy = 1; ... push @last, { $_ => $last[-1] } foreach reverse @a; print Dumper( $last[-1] ); # result
$VAR1 = { 'foo' => { ... } } };