print "DEBUG: get_host: " . GetHosts($_, \%data) . "\n";
        print "DEBUG: get_new_fw: " . GetNewFWRules($_, \%data) . "\n";
        my %do_for = (
            get_hosts => GetHosts($_, \%data),
            get_new_fw_rules => GetNewFWRules($_, \%data),
        );
        #print "while\n";
        print "DEBUG: do_for: " . $do_for{$what_to_do} . "\n";

##</code><code>##

sub GetHosts {
....
    return 1;
}