Select Code to Download

my @groups;
my %in_num_groups;
...
    my $item = shift @pile;
    push @{$groups[$in_num_groups{$item}++]}, $item;
}

@pile = shuffle( (@card) x $n );