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