sub my_any (&@) {
  my $block = shift;
  $block->() && return !!1
    for @_ ;
  return !!0
}

sub exists_any (\%@) {
  my $h_hash = shift @_;
  exists $h_hash->{$_} && return 1
    for @_;
  return !!0
}


my %hash;
my @list = 0 .. 1_000_000;
@hash{ map int rand @list, 1 .. 1000 } = ();

say my_any { exists $hash{$_} } @list;

say exists_any %hash, @list;      # note cleaner syntax