#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;

my @strings = ("AB", "AC", "AD", "AE", "FG");
my $counts;
for my $file (glob ('File/*')) {
    open my $fh, "<", $file || die "Could not open $!!";
    for my $line (<$fh>) {
        for my $string (@strings) {
            $counts->{$string}++ for $line =~ m/$string/g;
        }
    }
    close $fh;
}
print Dumper($counts);