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

##</code><code>##

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

##</code><code>##

my %do_for = (
    get_hosts        => \&GetHosts,
    get_new_fw_rules => \&GetNewFWRules,
    );
#...

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