# 3-Argument open() ist sicherer; + lexikalischer Filehandle
open(my $ifh, '<', $orderConfigFile") or die "Error open file $orderConfigFile ($!)\n";
    my @content = <$ifh>;
close $ifh;

print "ungefilterte groesse des arrays ist " . scalar(@content) . "\n";
        
my @cleanedContent = 
  # wenn Pattern gefunden, liefere eingefangenen Teilstring; sonst original $_; Einfangen notwendig
  map { m/->\s*(.*)/ ? $1 : $_ }
    # keine Leer- oder Kommentarzeilen; Einfangen nicht notwendig
    grep { ! m/\A\s*(?:#|$)/ }           
       @content;

# ein chomp()-Aufruf fuer alle Elemente anstatt für jedes einzeln...
chomp @cleanedContent;                 


print "groesse nach filtern des arrays ist " . scalar(@cleanedContent) . "\n";