Select Code to Download

use strict;
my %suits;
...
        $suits{$1}++ if /(hearts|clubs|spades|diamonds)/;
}
print ($_ . "\n") x $suits{$_} for (keys %suits);