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