List::Util 

use List::Util qw(
    reduce any all none notall first
    max maxstr min minstr product sum sum0
    pairs unpairs pairkeys pairvalues
    pairfirst pairgrep pairmap
    shuffle uniq uniqnum uniqstr
);

my @cards = shuffle( 0..51 );