なにはともあれ、perlさんが
Scalar value @ServerList[$num] better written as $ServerList[$num] at ./dotabata.cgi line 13.
って言ってるので、そのように書きなおす(^_^;)