Select Code to Download

## untested "idea" code ##
package TwoWayHash;
...
    my $temp = reverse $self->{data};
    return $temp{shift};
}

use TwoWayHash;

...
    my $b = TwoWayHash->(\%a);
    print "I need ",$$b{'item'};  ## finds key where $a{key} eq 'item'
}

print "I need", rv_lookup('item',\%a);