for ( $thread ) {
        my %data2;
        $data2{author}  = $thread->author;
        $data2{date}    = $thread->date;
        $data2{content} = $thread->content;
        push @d_body, \%data2;
    }