use Data::Dumper;
my $top_level = "Data";
my $second_level = "Dumper";
my $subname = "Dumper";
print &{*{${*{${*{$::{$top_level."::"}}{HASH}}{$second_level."::"}}{HASH}}{$subname}}{CODE}}(\%Data::);