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",$MissingPatchList{$BulletinID} || 0);
        $FoundPatchList{$BulletinID} = sprintf("%04d",$FoundPatchList{$BulletinID} || 0);