if ($a =~ /^0412/) {           # zeilenlänge 576?
           $a = '<>'.$a;               # spitze klammern davor
           push(@a100,$a);             # zeile ins array schreiben
           }

        if ($a =~ /^0824/) {           # siehe oben, nur mit anderer satzlaenge
           $a = '<>'.$a;
           push(@a200,$a);             # zeile ins array schreiben
           }