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

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

##</code><code>##

push @{$player_info{$ipaddr}} , ($nickname,$userid,$player_req);

print ${$player_info{$ipaddr}}[0]; ## gives the nickname ...

##</code><code>##

-----------------------------------
--the good, the bad and the physi--
-----------------------------------