Select Code to Download

print "here GetHosts - " . Dumper($ref_data) . "\n";

print "here GetHosts - ", Dumper($ref_data), "\n";

my %do_for = (
    get_hosts        => \&GetHosts,
...
#...

$do_for({$what_to_do}->( $_, \%data );