Problem mit Tie::file und zeilenende

[Dauna]

Servus!

Ich hab ein Problem mit Tie::File.

Folgendes: Ich hab mir eine Flatfile erstellt (txt datei), diese sieht etwa so aus:

###################################
Username, name, passwort, sonstiges
Username2, name2, passowrt2, sonstiges2
###################################
usw.
(In der Datei sind übrigends keine rauten (#)).

Wenn ich Username oder name oder passwort bearbeiten will klappt alles super, aber bei dem letzten wert vor der neuen zeile scheitert es.
Ich habe viel rumprobiert von split über s/ über chomp usw. aber entweder es passiert nichts oder es werden alle Buchstaben in der reihe ersetzt durch die eingabe.

Hier mal ein kleiner Codeausschnitt hoffe ihr könnt mir da helfen!!!!

#!/usr/bin/perl -w

use strict;
use Tie::File;

open (LIST, "<liste.txt");
while (<LIST>)
{
my @ke = split /, /, $_;

my $open = 'liste.txt';
tie my @aenderung, 'Tie::File', $open;
for (@aenderung) {
s/$ke[3]/neuerwert/g;
}
untie @aenderung;
}

natürlich fehlt da noch VIEL mehr code aber ich bin mir sicher das hier irgendwo der fehler liegt.

weiss jemand rat??? danke