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