foreach my $ref (@dispatchtab) {
    # nur der Code innerhalb dieser Schleife darf geändert werden, sonst nichts!
    my $coderef = do $ref->{moduldatei};
    $ref->$coderef('a');

    # beachte: $ref is not blessed
}


# in Moduldatei steht drin
sub{
  print "@_";
};