Ausgelesene Zeilen in Perl miteinander vergleichen, WIE?

[Sergej]

Hallo liebe Leser,

habe folgendes Problem:
mittels
open(FHin, "< $inFile") or die "\nKann $inFile nicht oeffnen: $!";
lese ich den Testfile ein, kein Problem.
mittels
open(FHout,">> $outFile" ) or die "\nKann $outFile  nicht zum Anhängen oeffnen: $!";
zum schreiben öffnen, auch kein Problem.
--------------UND jetzt! ---------------

$/="\n"; # Ende einer Zeichenkette ist der Zeilenumbruch !!
my $z_nr = 0;
while(<>){ # Solange Zeile existiert <== ???
$z_nr++;
@zeile[$z_nr] = chomp;

richtig, oder muß @array davor??????

bei array, error: @zeile[$z_nr] better written as $zeile[$z_nr] at # xx.bat line 36.

ist der Anfangrichtig?

???????????????????????????????????????????????????????????????????

Später will ich jeweil die Zeilen-substr mit einander Vergleichen,

d.h jeder Zeilen-substr  mit jedem !! Und die Gleichen Zeilen

ausgeben.

???????????????????????????????????????????????????????????????????

Bsp:

my $MsgVon = 23;
my $MsgBis = 45;
@Msg[$z_nr]  = substr($zeile[$z_nr], $MsgVon, $MsgBis);
for($wert=$z_nr; $wert>=1; $wert--){
    if ($Msg[$z_nr] == $Msg[$wert]  {
     print FHout "$zeile[$z_nr]\n";     print FHout "$zeile[$wert]\n";
  }
}
-----------------------------------------------------
Danke für die Hilfe!

Gruß Sergej