foreach my $db (@db) {
  foreach my $in (@in) {
    $db =~ s/$in//g;
  }
}