@cards = ('C01'..'C13','D01'..'D13','H01'..'H13','S01'..'S13'); while (@cards) { $card = splice(@cards, rand @cards, 1); print "$card "; print "\n" if @cards % 13 == 0; }