Select Code to Download

my $vndr_key = (grep { $args->{desc} =~ m/$_/i } keys %vendors)[0];

...
} else {
  #do something else
}