Select Code to Download

Data strucure: Message ID (Parent)

...
       |-- 4 (3)
       |   \-- 6 (4)
       \-- 5 (3)

# Get the data and store it in a message hash
while (<DATA>) {
...
        content => $content
    );
}

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