while (<DATA>)
{
    @_ = split /\s+/;
    push (@array, $_[0]) unless $_[1] eq "Veterinarian";
}

print("@array\n");
__DATA__
David    Veterinarian
Jackie  Orthopedist
Karen Veterinarian