Or, if you want to speed up looking for a value, build an inverse hash..

  my %forwardhash = (
    key1 => 'value1',
    key2 => 'value2',
    key3 => 'value3'
  );

  my %reversehash = ();
  while ( my ( $key, $value ) = each %forwardhash ) {
      $reversehash{$value} = $key;
  }

  use Data::Dumper;
  print Dumper( \%reversehash );
[download]

Outputs:

  $VAR1 = {
            'value1' => 'key1',
            'value2' => 'key2',
            'value3' => 'key3'
          };
[download]