my %draw = (map {$_ => 1} qw/ ... /);

##</code><code>##

...
  my $hits = @draw{@$bet};
...