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]
www.com | www.net | www.org
Great! It updates last hour of cb and helps me join a discussion The! Worst! Thing! Ever! It always ignores my self-upvotes for cb stats!!?! Somewhat useful in settling debates with coin flips and dice rolls Chatterbot? Nobody told me about it! Not my cup of tea. I do not do that live chat thingie...
Results (30 votes). Check out past polls.