Help for this page

Select Code to Download

Select or download this

 
foreach $suit (@allsuits) {
    my $i = 1;
...
        if ( $i == 11 ) { push( @jacks,  "$card$suit " ) }
        if ( $i == 12 ) { push( @queens, "$card$suit " ) }
        if ( $i == 13 ) { push( @kings,  "$card$suit " ) }

Select or download this

#!/usr/bin/perl 

...
3_spd j_spd k_hrt 5_dmd a_spd j_clb 7_hrt 2_hrt 9_clb 6_clb