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