my $basename = basename (@TIFFfolder_list, ".psd");
print "$basename\n";