my @csv = (); # Array das später alle Felder beinhaltet

# 14 Zeilen überspringen
scalar <$INH> for 1..14;
# weitere Zeilen einlesen
while ( my $line = <$INH> ) {
    # Zeilenendezeichen entfernen
    chomp $line;      
      
    # Ende, wenn Zeile mit Telefon gefunden
    last if $line =~ /^Telefon:/i;

    # Datenfeld zwischenspeichern       
    push @csv,$line;       
}
# alle Felder mit dem ; verbunden ausgeben und ein Newline
print $OUTH join( ';', @csv ), "\n";