use List::Util qw(shuffle); my @data = (0..51); my @cards = shuffle @data;