Select Code to Download

use strict;
use warnings;
...
my @interesting_values = qw(bar 23);
my %reversed_hash = reverse %hash;
my @keys = map { $reversed_hash{$_} } @interesting_values;