my $foo = { }; $foo->{a}->{b}->{c}->{d} = 1; use Data::Dumper; print Data::Dumper->Dump([$foo],['foo']);