Select Code to Download

use List::Util 'shuffle';
my @shuffled_deck = shuffle 1 .. 10;
...
foreach(@shuffled_deck) {
    print;
}