Select Code to Download

 $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)