for seq in $(ls *.fasta); do echo $seq; perl ../../codi.pl ${seq/.fasta/}; done