if ($ret{$value1} eq $out{$key}) {
      print "$ret{$key1}:$ret{$value1}:$out{$value}\n";
} else {
    print "'$ret{$value1}' and '$out{$key}' are different.\n";
}
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

If $value1 is equal to $key I want to print "$key1:$value1:$value\n" Why doesn't this work?

if you want to test what you said above you would say

if ( $value1 eq $key ){
...; 
}
[download]

Nicpetbio23!:

You don't reference a hash from the values, but from the keys. So $ret{$value1} isn't going to give you what you want. You really need something like $ret{$key1} to get value 1. So you probably want to create a reversed hash:

my %reversed_ret = (reverse %ret);
[download]

Then you can check for $reversed_ret{$value1}. Note: there's a problem with reversing a hash like this: If you have the same value1 for multiple keys, then that value will return only the last key you added to the reversed hash.

...roboticus

When your only tool is a hammer, all problems look like your thumb.