Help for this page
foreach my $i (1..$cards) { my %seen; ... . . .
use Algorithm::Numerical::Shuffle qw /shuffle/; . ... . . .