(my $nkey, my $nvalue_ref) = each %player_info ;
my @nvalue = @{$nvalue};