Statt
use List::Util qw(shuffle);
use List::Util 'shuffle';

Statt
my @hand = splice @cards, 0, 7;
my @hand = splice @cards, -7;

edit:

Statt
say"\t",join"\t",@s
$"="\t";say"\t@s"
Last edited: 2017-01-17 13:51:17 +0100 (CET)