As an aside, you can save yourself a lot of fiddly typing by using maps.

$ perl -E '
> my @suits  = qw{ Hearts Diamonds Clubs Spades };
> my @values = qw{ A 2 3 4 5 6 7 8 9 10 J Q K };
> my @deck   =
>    map { my $suit = $_; map { qq{$_ $suit} } @values } @suits;
> say for @deck;'
A Hearts
2 Hearts
3 Hearts
4 Hearts
5 Hearts
6 Hearts
7 Hearts
8 Hearts
9 Hearts
10 Hearts
J Hearts
Q Hearts
K Hearts
A Diamonds
2 Diamonds
3 Diamonds
4 Diamonds
5 Diamonds
6 Diamonds
7 Diamonds
8 Diamonds
9 Diamonds
10 Diamonds
J Diamonds
Q Diamonds
K Diamonds
A Clubs
2 Clubs
3 Clubs
4 Clubs
5 Clubs
6 Clubs
7 Clubs
8 Clubs
9 Clubs
10 Clubs
J Clubs
Q Clubs
K Clubs
A Spades
2 Spades
3 Spades
4 Spades
5 Spades
6 Spades
7 Spades
8 Spades
9 Spades
10 Spades
J Spades
Q Spades
K Spades
[download]

I hope this is helpful.