#!/usr/bin/perl 

use strict;
use warnings;

my $suit;
my @allsuits = ( "_clb", "_dmd", "_hrt", "_spd" );
my @suitcards = ( "a", 2 .. 10, "j", "q", "k" );
my @arraysuit;
my (
    @aces,   @twos,  @threes, @fours, @fives,  @sixes, @sevens,
    @eights, @nines, @tens,   @jacks, @queens, @kings
);
my $randcard;
my @hand;

foreach $suit (@allsuits) {
    my $i = 1;
    foreach my $card (@suitcards) {
        push( @arraysuit, "$card$suit" );
        if ( $i == 1 )  { push( @aces,   "$card$suit " ) }
        if ( $i == 2 )  { push( @twos,   "$card$suit " ) }
        if ( $i == 3 )  { push( @threes, "$card$suit " ) }
        if ( $i == 4 )  { push( @fours,  "$card$suit " ) }
        if ( $i == 5 )  { push( @fives,  "$card$suit " ) }
        if ( $i == 6 )  { push( @sixes,  "$card$suit " ) }
        if ( $i == 7 )  { push( @sevens, "$card$suit " ) }
        if ( $i == 8 )  { push( @eights, "$card$suit " ) }
        if ( $i == 9 )  { push( @nines,  "$card$suit " ) }
        if ( $i == 10 ) { push( @tens,   "$card$suit " ) }
        if ( $i == 11 ) { push( @jacks,  "$card$suit " ) }
        if ( $i == 12 ) { push( @queens, "$card$suit " ) }
        if ( $i == 13 ) { push( @kings,  "$card$suit " ) }
        $i++;
    }
}
print "This is how many cards are in the deck: ", my $howmany = @array
+suit,
  "\n";
print "These are the aces in the deck: ",   @aces,   "\n";
print "These are the twos in the deck: ",   @twos,   "\n";
print "These are the threes in the deck: ", @threes, "\n";
print "These are the fours in the deck: ",  @fours,  "\n";
print "These are the fives in the deck: ",  @fives,  "\n";
print "These are the sixes in the deck: ",  @sixes,  "\n";
print "These are the sevens in the deck: ", @sevens, "\n";
print "These are the eights in the deck: ", @eights, "\n";
print "These are the nines in the deck: ",  @nines,  "\n";
print "These are the tens in the deck: ",   @tens,   "\n";
print "These are the jacks in the deck: ",  @jacks,  "\n";
print "These are the queens in the deck: ", @queens, "\n";
print "These are the kings in the deck: ",  @kings,  "\n";
print "\n";

sub deal_cards(\@) {
    for ( my $n = 0 ; $n < 10 ; $n++ ) {
        push( @hand, $arraysuit[ rand @arraysuit ] );
    }
}






sub remove_duplicates(\@) {
    my $ar = shift;
    my %seen;
    for ( my $i = 0 ; $i <= $#{$ar} ; ) {
        splice @$ar, --$i, 1

          if $seen{ $ar->[ $i++ ] }++;
    }
}

deal_cards(@hand);
print "10 random cards.  Before checking for dupes:\n";
print "@hand\n\n";

remove_duplicates(@hand);
print "Cards with duplicates removed:\n";
print "@hand\n\n";

while ( @hand < 10 ) {
    push( @hand, $arraysuit[ rand @arraysuit ] );
    remove_duplicates(@hand);
}
print "Final hand:\n";
print "@hand\n";


This is how many cards are in the deck: 52
These are the aces in the deck: a_clb a_dmd a_hrt a_spd 
These are the twos in the deck: 2_clb 2_dmd 2_hrt 2_spd 
These are the threes in the deck: 3_clb 3_dmd 3_hrt 3_spd 
These are the fours in the deck: 4_clb 4_dmd 4_hrt 4_spd 
These are the fives in the deck: 5_clb 5_dmd 5_hrt 5_spd 
These are the sixes in the deck: 6_clb 6_dmd 6_hrt 6_spd 
These are the sevens in the deck: 7_clb 7_dmd 7_hrt 7_spd 
These are the eights in the deck: 8_clb 8_dmd 8_hrt 8_spd 
These are the nines in the deck: 9_clb 9_dmd 9_hrt 9_spd 
These are the tens in the deck: 10_clb 10_dmd 10_hrt 10_spd 
These are the jacks in the deck: j_clb j_dmd j_hrt j_spd 
These are the queens in the deck: q_clb q_dmd q_hrt q_spd 
These are the kings in the deck: k_clb k_dmd k_hrt k_spd 
10 random cards.  Before checking for dupes:
3_spd j_spd k_hrt 5_dmd a_spd j_clb 7_hrt k_hrt 2_hrt a_spd

Cards with duplicates removed:
3_spd j_spd k_hrt 5_dmd a_spd j_clb 7_hrt 2_hrt

Final hand:
3_spd j_spd k_hrt 5_dmd a_spd j_clb 7_hrt 2_hrt 9_clb 6_clb
[download]