for my $root ( sort { $a <=> $b } keys %created ) {
   my $parent = $created{$root}{PARENT};
   push @{$created{$parent}{KIDS}}, $root;
}