use strict;
use warnings;

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

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