Select Code to Download

use strict;
use warnings;

use List::Util qw( shuffle );

{
   my %val; @val{2..10,qw(J Q K A)} = (2..14);
...
      return 'High Card';
   }
}

{
   my @hand = (@ARGV
...

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