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