Select Code to Download

my %h = qw( 1 2 3 4 5 6 );
my %rev_h = reverse %h;
...
          '4' => '3',
          '2' => '1'
        };

my @keys = grep{ $hash{$_} eq $find } keys %hash;