# We need a hash of comment ids; to avoid abusing the DB, we're going to build
                # this here; this is probably a horrible way to do it, and likely saner, but perldocs
                # isn't helping me figure this out
                for (@$comments) {
                        my (%comment);
                        @comment{qw(nickname cid date subject pid comment)} = @$_;
                        $comment_hash{cid} = {
                                nickname => $comment{nickname},
                                date => $comment{date},
                                pid => $comment{pid},
                                comment => $comment{comment}
                        }
                }