my %hash = (
   apple  => 'red',
   banana => 'yellow',
   orange => 'orange',
   lemon  => 'yellow',
);

my $value = 'yellow';

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

print("$_\n")
   foreach @matching_keys;
[download]