my @aa = ("Phe","Val","Asn","Gln","His","Leu","Cys","Gly","Ser");

my $isFirst = 1;
for my $i (@aa) {
    if ($isFirst) { $isFirst = 0; } else { print "--"; }
    print $i;
};