use strict;
use warnings;

my $dirs1 = </cygdrive/c/Users/attwwwe1/Documents/dude/logs/*.logs>;
my $dirs2 = </cygdrive/c/Users/attwwwe1/Documents/dude/logs2/*.logs>;

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

if (@ARGV){
  while(<>){
    #somework
  }
}
else{
  print "none";
}