Select Code to Download

sub my_any (&@) {
  my $block = shift;
...
say my_any { exists $hash{$_} } @list;

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