#!/usr/bin/perl

use strict;
use warnings;

my @allsuits = ( "clubs", "diamonds", "hearts", "spades" );
my @suitcards = ( "ace", 2 .. 10, "jack", "queen", "king" );
my $card;
my @cards;
my $suit;
my @suit;
my @suits;
my @allfours;

foreach $suit (@allsuits) {
	  push( @suits, $suit );
		@suit = $suit;   
		print "$suit\n";
		foreach $card (@suitcards) {
			push( @cards, "$card" );
		}
		print "@cards[0 .. 12]";
		push( @allfours, $cards[3] );
		print "\n\n";
}
print "All the fours of a suit - @allfours\n";

##</code><code>##

clubs
ace 2 3 4 5 6 7 8 9 10 jack queen king

diamonds
ace 2 3 4 5 6 7 8 9 10 jack queen king

hearts
ace 2 3 4 5 6 7 8 9 10 jack queen king

spades
ace 2 3 4 5 6 7 8 9 10 jack queen king

All the fours of a suit - 4 4 4 4

##</code><code>##

print "@cards[0 .. 12]"; 

##</code><code>##

spades
ace 2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 jack queen king