while(1){

	my $identification = @player;

	$network->accept_client($identification);

	if( $identification > ${$ptr_server_config}{'MAX_PLAYER'} ){

		$network->protocol_error_max_player($identification);
	}

	$player[$identification] = cwt::player->new($identification);

            $pthread_array[$identification] = threads->new(\&player_thread, $identification, $player[$identification]);

            $cthread_array[$identification] = threads->new(\&controling_thread, $identification, $player[$identification]);

}

....

sub player_thread {

        my $ID = $_[0];
        my $player_object = $_[1];

        ....
}

sub controling_thread {

        my $ID = $_[0];
        my $player_object = $_[1];

        ....
}