Select Code to Download

foreach my $i (1..$cards) {
    my %seen;
...
              .
              .
              .

use Algorithm::Numerical::Shuffle qw /shuffle/;
   .
...
              .
              .
              .