perl -de '
  foreach $i (map {glob} "COMFILE1.2008*") {
    open(IN,$i);
    chomp(@tmp = (<IN>));
    $tbl{$i} = [ @tmp ] ;
    close(IN);
  }

  open(IN,"dw_renewals.txt");
  while(<IN>) {
    chomp;
    foreach $i (sort keys %tbl) {
      @tmp = [ @tbl{$i} ];
      if (grep /$_/, [ @tbl{$i} ] ) {
        print "$_ in $i $y\n";
      }
    }
  }
'