use Meta::Ds::Hash;
my($hash)=Meta::Ds::Hash->new();
$hash->insert($bar);
$hash->insert($baz);
$hash->insert($boo);
# later
if($hash->has($foo)) {
  print "Found it\n";
}