Select Code to Download

if ($ref->{prodname} =~ /$value/) {
  # worked
...
elsif($ref->{key1} =~ /\Q$value\E/) {
  # worked
}