my %functions = (
  function1 => {arglist1 => ["arg1", { arg2 => val2 }],
                arglist2 => [...],
                ...
               },
  function2 => {...},
  ...,
);


while (my ($func, $argsList) = each %functions) {
    for my $key (keys %$argsList) {
        print "Test $func against args $key\n"
        &{"harcommon::$func"}(@{$argsList->{$key}});
    }
}