my $d = 0;
    my $e = 0;
    my @val;
    while ( (my $nkey, my @nvalue) = each %player_info ) {
    	#print "Have an array (\@nvalue)\n" if wantarray(@nvalue);
        print "Key = $nkey and nvalue = ";
        $e++;
        for ( @nvalue ) {
        	print "$_\n$_[0]\n$_[0]->[0]\n";
        	$d++;
        	print join(", ",$_[$e]->[$d]);
        }
        print "\n";