use List::Pairwise 'mapp';

my %hash = (
    foo => 1,
    bar => 2,
    baz => 1,
    bux => 0,
);
my $val = $hash{foo};

my @keys = mapp { $b eq $val ? $a : () } %hash;

print "@keys";

__END__
baz foo