my @filelist = glob"/user/*/ws/*/BLK_*/*.txt
      for my $file (@filelist) {
.
.
.
.
.
}