foreach my $name (@names) {
   if ($dbpattern{$name} =~ /$pattern/i or $dbcolor{$name} =~ /$color/i) {
       # print out the record
   }
}