my @data = 0..51; my @cards = sort { (-1,1)[rand(2)] } @data ;