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