while ($data = <DB>) {
    chomp($data);
    foreach $id (@id) {
      if ($data =~/$id/) {
        print OUT "$data\n";
      }
    }
  }