$player_info{$ipaddr} = [$nickname, $userid, $player_req];

for $key ( keys $player_info) {
  print @{$player_info{$key}}
}