my $re = join '|', keys %vendors;
my $vndr_key_found =  $args->{desc} =~ /$re/;
if($vndr_key_found) { ... } else { ... }