Select Code to Download

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

print for map {
    my $hits = grep { $draw{$_} } @$_;
    "@$_ --> $hits" . ($hits > 2 && ' *')
} @bets;

#!/usr/bin/env perl -l

...
    my $hits = grep { $draw{$_} } @$_;
    "@$_ --> $hits" . ($hits > 2 && ' *')
} @bets;

09 13 18 33 39 42 --> 2
02 18 32 36 39 42 --> 1
...
07 17 21 32 45 48 --> 1
07 36 37 39 40 41 --> 1
07 12 20 29 36 43 --> 0