my @liste=();
my $wert=@liste[1];
$liste[1]=$wert;