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

##</code><code>##

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