sub regex {
    foreach my $data (@db) {
        foreach my $id (@id) {
            if ($data =~ /$id/) {1}
        }
    }
}

sub index {
    foreach my $data (@db) {
        foreach my $id (@id) {
            if (index($data,$id)+1) {1}
        }
    }
}