for my $user_id (@cdwv_list) {
    my ($names) = grep(/^\Q$user_id/, @names);
    if ($names) {
        ($name) = $names =~ /\/([\w\s]+)\|/;
    }
    else {
        print "$userid does not exist in name list\n";
    }
}