my @aa = ("Phe","Val","Asn","Gln","His","Leu","Cys","Gly","Ser");
my $ende = pop @aa;     # entnimmt das letzte Element und speichert es zwischen
foreach my $i (@aa) {
                print "$i--";
};
push @aa, $ende;        # setzt das letzte Element wieder an seinen Platz
print "$ende\n";