my %suffix;
open(LOG, "logfile") or die $!;
while (<LOG>) {
   next if /^#/;
   $suffix{$1}++ if /.+(\.\w{3,4}\s\d{3})$/;
}
close LOGS;
for (sort keys %suffix) {
   print "$_ => $suffix{$_}\n";
}