foreach my $id (keys %{$msg}) {
    next if ($msg->{$id}->{thread} == 0);
    push @{ $msg->{ $msg->{$id}->{thread} }->{children} }, $id;
}