$player_info{$1}= [ qw($value1 $value2) ]; (my $nkey, my @nvalue) = each %player_info #### (my $nkey, my $nvalue_ref) = each %player_info ; my @nvalue = @{$nvalue}; #### [ qw($value1 $value2) ]; #### [ $value1, $value2 ]; #### (my $nkey, my $nvalue_ref) my ($nkey, $nvalue_ref)
## (my $nkey, my $nvalue_ref) = each %player_info ; my @nvalue = @{$nvalue}; ##
## [ qw($value1 $value2) ]; ##
## [ $value1, $value2 ]; ##
## (my $nkey, my $nvalue_ref) my ($nkey, $nvalue_ref)