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