my @mafft = ("mafft", "--auto", "--phylipout", "--reorder", "$file.fasta > infile");
system(@mafft) == 0 or die "system @mafft failed: $?";