@ARGV or @ARGV = qw( one two three four );    # for testing
# ...
my @players;
my $maxname = '';
for (@ARGV) {
  $maxname |= $_;
  push @players,
    {
    name  => $_,
    score => 0,
    tiles => [ sort splice @drawpile, 0, $maxtiles ]
    };
}