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

while (my ($func,$args) = each %functions) {
   no strict 'refs';
   &{"harcommon::$func"}(@$args);
}