Hat jemand Tipps zur Optimierung dieses (teil)scriptes?

[pehajo]

Hallo,

hab mir als perl-Beginner nachfolgendes script zusammengebastelt:
gegeben: Tabelle mit Datensaetzen getrennt durch pipe
Wenn eine Bedingung auf listenelement[2] zutrifft, soll das letzte Element
der Liste [5] um eins erhoeht werden (=counter) und die Liste in eine neue
Datei geschrieben werden.

$benutzer = "irgendwas";

open(DATEI, "/.....adressen.txt") die $!;
  while(($line = <DATEI>))
    {
     chop($line);
      @liste = split(//, $line);

if ($liste[2] eq $benutzer)
  {
  $counter = $liste[5];
  $counter++;
  
  pop(@liste);
  push(@liste , $counter);
  }
  push(@listeneu , "$liste[0]$liste[1]$liste[2]$liste[3]$liste[4]$liste[5]\n");
     }
close(DATEI);

open(DATEINEU, ">/......adressenneu.txt") die $!;

print DATEINEU @listeneu;
close(DATEINEU);

es funktioniert soweit.
Mich wuerde aber interessieren, wie man es hinsichtlich performance optimieren soll.
Mit performance meine ich Laufzeit und Speicherbedarf des Rechners, da die Adressdatei
ca. 1000 Zeilen hat (ca. 300kb)

Vielleicht streubt es ja die insider bei obigen code die Haare ;-)

Wuerde mich ueber Anregungen freuen, danke vorab!

pehao