foreach (@bz_comments){
	    ($who, $bug_id, undef, $date, undef, $body) = split(/,/, $_); 
	    $BZ_comment{$bug_id} .= "<p><strong>$who $date</strong></p> <p>$body</p>";
	}
	
	while (my ($id, $comment) = each %BZ_comment){
		push(@bz_comments_OUTPUT, "$id , $comment");
	}