13:35 >perl -MO=Deparse 1848_SoPW.pl
use File::Glob ();
@ARGV = glob('/cygdrive/c/Users/abc123/Documents/dude/logs/*.log');
while (defined($_ = readline ARGV)) {
    ();
}
1848_SoPW.pl syntax OK

13:35 >

##</code><code>##

my @dirs = qw( dir1 dir2 );   # add more as required
@ARGV = ();
push @ARGV, <./1848_SoPW/$_/*\.log> for @dirs;

##</code><code>##

my @dirs = qw( dir1 dir2 );
@ARGV = map { <./1848_SoPW/$_/*\.log> } @dirs;

##</code><code>##

use strict;
use warnings;

my @dirs = qw( dir1 dir2 );
@ARGV = map { <./1848_SoPW/$_/*\.log> } @dirs;

if (@ARGV)
{
    while (<>)
    {
        ...
    }
}