Try this:

system(qq{/blast/bin/./blastall -p blastn -d /anonymous/$chrfile -i "/anonymous/$element -o /anonymous/blast-$org$chr-$ele.txt" -e 1e-8 -F F});