use strict;
my @files = qw(FILES);
my $semi_count;
foreach my $file (@files) {
   open FILE, $file or die "Can't open $file: $!\n";
   $semi_count += tr /;// for <FILE>;
   close FILE;
}
print $semi_count;