Select Code to Download

  my %forwardhash = (
    key1 => 'value1',
...

  use Data::Dumper;
  print Dumper( \%reversehash );

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