Select Code to Download

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

KsQs JsAs
2s3s

KsQs
2s3s