Select Code to Download

$player_info{$ipaddr} = [ qw($nickname $userid $player_req) ];
# and...
    $player_info{$1}
        = [ qw($value1 $value2) ];

$player_info{$ipaddr} = [ $nickname, $userid, $player_req ];
# and...
    $player_info{$1}
        = [ $value1, $value2 ];

    while ( (my $nkey, my @nvalue) = each %player_info ) {
        #stuff
    }

    while ( (my $nkey, my $nvalue) = each %player_info ) {
        # stuff with $nvalue->[$ndx]
    }