#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my @deck = deck_maker();

print Dumper \@deck;

sub deck_maker {
    my @deck = (); #the deck for returning
    my @types = ('spades', 'hearts', 'diamonds', 'clubs');
    my @cards = (
            [2,3,4,5,6,7,8,9,10,'J','Q','K','A'],
            [2,3,4,5,6,7,8,9,10,'J','Q','K','A'],
            [2,3,4,5,6,7,8,9,10,'J','Q','K','A'],
            [2,3,4,5,6,7,8,9,10,'J','Q','K','A']
            );
    for ( my $i=0; $i < 4; $i++) {
        for ( my $j=0; $j < 13; $j++) {
            my $newcard = "$cards[$i][$j] of $types[$i]";#####
            push(@deck, $newcard);
        }
    }
    return @deck; #return the new deck
}

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my @deck = deck_maker();

print Dumper \@deck;

sub deck_maker {
    my @deck = (); #the deck for returning
    my @types = ('spades', 'hearts', 'diamonds', 'clubs');
   
    for ( my $i=0; $i < 4; $i++) 
    {
       my @cards = ( 2,3,4,5,6,7,8,9,10,'J','Q','K','A');
       while (my $card = pop @cards)
       {
            my $newcard = "$card of $types[$i]";
            push(@deck, $newcard);
       }
    }
    return @deck; #return the new deck
}