my @aa = ("Phe","Val","Asn","Gln","His","Leu","Cys","Gly","Ser");
foreach my $i (@aa) {
                print "$i--";
};