Select Code to Download

$player_info{$ipaddr} = [ qw($nickname $userid $player_req) ];

# get_player_info():
# intention: Get a listing of all the players in the server
...
        $watch = 1 if ( /-/ );
    }

    my $d = 0;
    my $e = 0;
...
            print join(", ",$_[$e]->[$d]);
        }
        print "\n";

    }
    return(%player_info);
}

[qadmin@concon devel]$ ./qservwatch2.pl
Key = 192.168.100.10 and nvalue = Use of uninitialized value in concat
+enation (.) at ./qservwatch2.pl line 522.
...


Use of uninitialized value in join at ./qservwatch2.pl line 524.