Something like (untested):

# print include files for SSI

sub printIncludes {
    print '<tr>';
    for my $incHandle ( keys %anchors ) {
        my $lastStatus;
        for my $status ( keys %{ $anchors{$incHandle} } ) {
            print $incHandle "@{ $anchors{$incHandle}{$status} }\n";
            print '</tr><tr>'if defined $lastStatus &&  $status ne $la
+stStatus; 
            $lastStatus = $status;
        }
    }
    print '</tr>';
}
[download]

And remove the <tr></tr> from the anchor strings as:

$incString = "<td align=\"center\"><a href=\"\#$class\.$titles{$status
+}\"><font color=\"$colors{$status}\">$class</a></font></td>";
[download]