use List::Util qw(shuffle first);

use strict;

# Ordered least to greatest
my @suit = qw(C D H S);
my @rank = (2..10, qw(J Q K A));

# Construct a standard deck
my @card = map {
	my $suit = $_;
	map {"$_$suit"} @rank
} @suit;

# Shuffle 4 piles of cards.
my @pile = shuffle( (@card) x 4 );

print "Pile\n\t@pile\n\n";

# Group Cards into Decks
my @deck;

for my $card (@pile) {
	# Order of Object
	my $ord = $card;
	
	my $deck = first {! exists $_->{$ord}} @deck;
	
	# Start new deck
	if (! $deck) {
		$deck = {};
		push @deck, $deck;
	}
	
	$deck->{$ord} = $card;
	
}

# Results:
print "Decks:\n";
for my $deck (@deck) {
	print "\t" . join(' ', values %$deck) . "\n";
}