my ($n) = 0;
while (my ($m) = $output[0] =~ /^\(multi-oom\) begin (\d+)$/) {
fail "Child process $m started out of order.\n" if $m != $n;
my ($n) = 0;
while (my ($m) = $output[0] =~ /^\(multi-oom\) begin (\d+)$/) {
fail "Child process $m started out of order.\n" if $m != $n;