##</code><code>##

Scalar value @cards[$i] better written as $cards[$i] at

##</code><code>##

    foreach $types ( qw(ace jack queen king), (2 .. 10) ) {