Select Code to Download

  while ($data = <DB>) {
    chomp($data);
    foreach $id (@id) {
...
      }
    }
  }

  my $regex = '(?:' . join('|', @id) . ')';

  while ( $data = <DB> ) {
    print OUT $data if $data =~ /$regex/o;
  }