my $liste=[];
my $wert=$$liste[1];
$$liste[1]=$wert;