Have a look at Quantum::Superpositions:

use Quantum::Superpositions;

my @array =("dog", "tiger");
my %hash=("1" => 'peacock', "2" => 'duck');
my $scalar = "horse";
my $search_element = "tiger";

print "found!" if ($search_element eq any(@array, $scalar, (values %ha
+sh)));
[download]