my @files;

foreach my $dir (@dirs) {
     @files = glob "*.eap";
     ...

##</code><code>##

for my $dir (@dirs) {
    my @files = glob "$dir/*.eap";
    ...

##</code><code>##

for (@files) { ...

##</code><code>##

for my $file (@files) { ...