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