There is some stuff here (like $counter) that makes me think there is probably some funky code not shown here, but just working with what you've shown...

my @years = qw[05 04 03 02 01 00 99 98];
foreach my $year (@years) {
    foreach my $BulletinID (keys %AllPatches) {
        next if (substr($BulletinID,2,2) ne $year);
        next unless ($MissingPatchList{$BulletinID} || $FoundPatchList
+{$BulletinID});
        if ($counter == 7) {
                print HTML "</tr><tr>\n";
                $counter = 0;
        }

        $MissingPatchList{$BulletinID} = sprintf("%04d",$MissingPatchL
+ist{$BulletinID} || 0);
        $FoundPatchList{$BulletinID} = sprintf("%04d",$FoundPatchList{
+$BulletinID} || 0);
[download]