sub create_aoh ($) {
# -----------------------------------------------------------------------------
# sub          : c r e a t e _ a o h
# -----------------------------------------------------------------------------
# Autor        : CD
# Aufgabe      : WZ-Liste in AoH übernehmen
# Parameter    : Name der Listendatei
# Rückgabewert : Eingelesenes AoH
# -----------------------------------------------------------------------------
# 0.0.1 - 12.03.2004 - CD - Erstellt
# -----------------------------------------------------------------------------

    my $file = shift;
    my @wz   = ();


    open (LST, $file) or die "Kann Datei '$file' nicht zum Lesen oeffnen: $!";

    while (<LST>) {
        next if m~^\s*$~; # Leerzeilen überspringen
        my ($id, $code, $vor_re) = split /\t/;
        unless (defined $vor_re) {
            warn "Fehler in Listendatei Zeile $. '$_'";
            next;
        }
        my $re = modify($vor_re);
        my ($qr, $mod) = $re =~ m#^m~(.*)~(.*)$#;
        push  @wz, {
                     id     => $id,
                     wzcode => $code,
                     re     => qr~(?$mod:$qr)o~,
                   };

    }

    close LST or warn $!;

    return @wz;

} # sub create_aoh