Use of uninitialized value $_[0] in substitution (s///) at /System/Library/Perl/5.18/File/Basename.pm line 341, <GEN0> line 10.
fileparse(): need a valid pathname

##</code><code>##

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