my @vndr_keys = grep { $args->{desc} =~ m/$_/i } keys %vendors;

if (@vndr_keys) {
  #do something
} else {
  #do something else
}