my @Werte = ( "Phe" , "Val" , "Asn" , "Gln" , "His" , "Leu" , "Cys" , "Gly" , "Ser" );
my $Trenner = "--";

foreach my $i ( @Werte ) 
{
    print $Trenner . $i;
};