Select Code to Download

my $class = shift; # at the top of the function
return bless \@deck, $class; # at the bottom

use List::util; # use the module but do not import shuffle

...
  @$out = List::Util::shuffle(@$deck);
  return wantarray ? @$out : $out;
}