${$children->[0]->{'harness'}}->{'next'} = $inUse;
$children->[0]->{'harness'} = $inUse;
$inUse = $$inUse->{'next'};
${$children->[0]->{'harness'}}->{'next'} = undef;