Problem mit Tie::file und zeilenende

[Dauna]

Hier das Anmeldeskript

#########################################################

#!/usr/bin/perl -w

use strict;

print "Username:\n";
my $nick = <STDIN>;
chomp $nick;
print "Name:\n";
my $name = <STDIN>;
chomp $name;
print "Alter:\n";
my $alter = <STDIN>;
chomp $alter;
print "Sonstiges :\n";
my $sonstiges = <STDIN>;
chomp $sonstiges;

my @anmeldung = ($nick, $name, $alter, $sonstiges);

open (LIST, ">>liste.txt");
print LIST join(", ", @anmeldung);
close LIST;

###########################################################

Hier das "Aufrufeskript":

############################################################

#!/usr/bin/perl -w

use strict;
use Tie::File;

print "user suchen: ";
my $nickname = <STDIN>;
chomp $nickname;

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

print "Durch was ersetzen: ";
my $ersetzen = <STDIN>;
chomp $ersetzen;

my $open = 'userliste/index.txt';
tie my @aenderung, 'Tie::File', $open;

for (@aenderung) {
if ($_ =~ m/^$nickname/i) {
s/$ka[6]/$ersetzen/g;
}
}
untie @newchange;
close LIST;

#####################################################################

hoffe ihr könnt mir jetzt helfen!!

vielen dank!!!!!!!!!!!!!!!!!!!!!!!