open(INPUT, "<$orderConfigFile") or die ("Error open file $orderConfigFile ($!)\n");
                my @content = <INPUT>;
                close INPUT;
                
                print "ungefilterte groesse des arrays ist " . scalar(@content) . "\n";
        
                #1. filtere kommentarzeilen und leerzeilen aus
                #2. danach entferne bei den übrigen das -> 
                #3. resultierende Liste enthält nur noch Regex/Datei
                my @cleanedContent = map{
                                        my $x = $_;
                                        chomp $x;
                                        if ($x =~ /(^->.*$)/){
                                                $x =~ s/^(->\s*)(.*)/$2/g;                                              
                                        }
                                        $x;                                                             
                                } grep{!/(^\s*([#].*)?$)/} @content;
                
                print "groesse nach filtern des arrays ist " . scalar(@cleanedContent) . "\n";