{
   my @hand = (@ARGV
      ? @ARGV
      : (  shuffle map { $_.'H', $_.'S', $_.'D', $_.'C' } 2..10,qw(J Q K A)  )[0..4] 
   );

   print join(', ', @hand) . ' is a ' . hand_name(@hand) . "\n";
}