if ($request_hash{Logic}) { no strict "refs"; subs::dbg($log_file, 0, "<$script_file> This is the Logic: $request_hash{Logic} \n\n"); $function_name = "request_logic::".$request_hash{Logic}; eval{$returned_hash_ref = &$function_name($request_hash_ref, $log_file)}; #should call any set function name if ($@) { subs::dbg($log_file, 0, "<$script_file> Error from eval: $@"); #if there is an eval error } else { subs::dbg($log_file, 0, "<$script_file> Hash returned from moodification from function $function_name"); subs::dbg($log_file, 0, Dumper $returned_hash_ref); } delete($request_hash{Logic}); #delete the hash value with the logic in it }