use Cwd;
printf "Current working directory: '%s'\n", getcwd;
printf "Fasta file to read:        '%s'\n", $array[3];