# Did the servers produce the same orders?
    for($i = 0; $i < $np; $i++){
        if(!defined($peers->[$i]{dead})){
            my @a = @{$pl->[$i]};
            my $j;
            for($j = 0; $j <= $#a0; $j++){
                if($a[$j] ne $a0[$j]){
                    return "servers produced different orders";
                }
            }
            $ns += 1;
        }
    }