my @befehle = ("$file.fasta", "infile", "5", "1", "\n", "y", "q");
system("mafft", @befehle);