my $find = q{something};

for my $key (%hash){
  for my $element (@{$hash{$key}}){
    if ($element eq $find){
      print qq{found $find};
    endif
  }
}
[download]

my $key = q{key};
my $find = q{something};
my @found = grep{$_ eq $find} @{$hash{$key}};
print qq{@found\n};
[download]