I have a script that goes into a folder on our server, glob's all the files in it, and sends an email to me with exactly what clients files might be in that folder. the files in that folder all have elements in the filenames that i can match to an expression to identify each clients files. i would like to glob the files, then look at the files in the array and match to a list of possible matches and report back to me which client files its found. as you can see with my code below i can match with individual if statements, then list them all out in my email, but that seems wrong, plus i'd rather not have any of the "0" counts show up. 
1 TUMI files
0 BW files
0 maurices files

[download]
ideally i'd list the files in one email like such. any help in modifying my code to be more scaliabe would be helpful. 

1 TUMI file
TUMI-1354839054_alt1 1.psd

2 maurices files
maur-1111.psd
maur-1110.psd

[download]
code below:: 
#!/usr/bin/perl -w

use Net::FTP;
use File::Copy;
use File::Basename;
use Email::Send::SMTP::Gmail;
use POSIX qw(strftime);

my $date = strftime("%m-%d-%y",localtime);
my $time = strftime("%I:%M:%S",localtime);


my $photo_error_folder = "/Volumes/photorepos/Partners/WorkHorse/ERROR
+/PhotographyDrop_ERROR";
my $post_error_folder = "/Volumes/photorepos/Partners/WorkHorse/ERROR/
+PostDrop_ERROR";
my $subject =  "ICS -- Files in the Error Folder ";

my $dllist ='bflieck@xxx.com';


chdir( $photo_error_folder ) or print "Cant chdir to $photo_error_fold
+er $!";

my $count = (@photo_err_list) = glob '"*{jpg,tif,tiff,psd}"';
if ($count > 0)
{

my ($mail,$error)=Email::Send::SMTP::Gmail->new( -smtp=>'smtp.gmail.co
+m',
                                                 -login=>'kopautomatio
+n1@xxx.com',
                                                 -pass=>'xxx',
                                                 -layer=> 'ssl',
                                                 -port=> '465',
                                                 -debug=> 1,
                                                 -timeout=> 1000);
                                                  
$tumi_count = grep { /TUMI/ } @photo_err_list;
if ($tumi_count > 0) {
print "$tumi_count TUMI files\n";
}
else
{
print "$tumi_count TUMI files\n";
}


$bw_count = grep { /BW/ } @photo_err_list;
if ($bw_count > 0) {
print "$bw_count BW files\n";
}
else
{
print "$bw_count BW files\n";
}

$maurices_count = grep { /Maur/ } @photo_err_list;
if ($maurices_count > 0) {
print "$maurices_count Maurices files\n";
}
else
{
print "$maurices_count maurices files\n";
}


my $body="please fix and redrop or delete the<br>
file://$photo_error_folder/<br><br>
";
my $spacer ="<br>";
my $body1= join "<br>\n", @photo_err_list;



$mail->send(-to=>"$dllist", -from=>"$dllist", -subject=>"$subject", -b
+ody=>"$body $spacer $body1", -contenttype=>"text/html");
$mail->bye;


}

[download]

In reply to count multiple variables in a single array. by flieckster

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.