if (($ref->{prodname} eq ($value)) || ($ref->{key1} eq ($value)))
[download]

    if ($ref->{prodname} =~ /$value/ || $ref->{key1} =~ /$value/)
[download]

You are saying it returns a list of items, but all the code shows is a conditional. There isn't anything wrong with the line. It's probably "failing" because either the hash or $value contains other values than you expect.

Could you give an example of a failure, including the values for the hash entries and $value.

Abigail

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

I decided to use ... or ... instead of (...) || (...) because I think it is easier to read and you can omit a couple of paranteses. But this is just a matter of my personal taste :-) (Beware that || has a higher precedence than "or", so with || you need parantheses in this case...)

In your example, $ref->{prodname} will contain $value and perhaps some other stuff. If you want to check if $ref->{prodname} is exactly the same as $value, better use $ref->{prodname} eq $value, or if there are only numbers in both, $ref->{prodname} == $value.

Best regards,
perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v8.8.8.32.11.32"

I don't know what you're comparing with the regex, but you do have to include the preceding "m" in a regex when you chose to use delimiters different than the default slashes, eg.:

if (($ref->{prodname} =~ m($value)) || ($ref->{key1} =~ m($value)))

You may also consider testing with eq if you want everything stringified.

Yeah, if you use different delimiters you have to use the m. But he is not using different delimiters! If you run his code, you'll see it compiles fine. The parenthesis here just play their usual role: indicating precedence. They are not needed, but the don't change the meaning either, just as in: (3) + (4). So, all you have are strings on both sides of the binding operator. And Perl handles that just fine....

Abigail

Maybe you could split up the line into two statements to find the problem easier:

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

For the next step, try to replace /\Q$value\E/ with /^\Q$value\E$/<P> If it still works, the only possibility that comes into my mind are newlines (e.g. if you read something from a file or STDIN) in either $ref->{...} or $value. You can remove them with chomp( $ref->{...} ) or the like.

Then, $ref->{...} eq $value might work as well.

If you need case insensitive comparisons, try $ref->{...} =~ /^\Q$value\E/i, or in the next step:
if (lc ( $ref->{...} ) eq lc($value) ) {

Best regards,
perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v8.8.8.32.11.32"