perl -e 'my $nested = { key_to_hash => {data => "here"}}; print %{$nested->{key_to_has
h}};'
##</code><code>##

use Data::Dumper;
print Dumper($nested);