use strict;
use Data::Dumper;
my $top_level = "Data";
my $second_level = "Dumper";
print Dumper *{${*{$::{$top_level."::"}}{HASH}}{$second_level."::"}}{HASH}