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