Card game simulation

sub loses(@deck) {
    grep { ($^index - $^value) %% 13 }, @deck.kv;
}

my $trials = 1000000;
my $won = 0;

for ^$trials {
    ++$won if !loses((^52).pick(*));
}

say 'Won ', $won / $trials * 100, '%';