Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
    @$hands = grep {! exists $pocketCards{substr ($_, 0, 2)}} @$hands;
    print "@$hands\n";
}

Select or download this
```
AsAc
KsQs Js0s
2s3s
1s3c
```