$player_info{$1}= [ qw($value1 $value2) ];

(my $nkey, my @nvalue) = each %player_info