.
.
.
%pad = ('1', '000', '2', '00', '3', '0', '4', '');
@years = qw[05 04 03 02 01 00 99 98];
@keys = sort keys %AllPatches;
foreach $year (@years) {
foreach $BulletinID (@keys) {
        next if (substr($BulletinID,2,2) ne $year);
        next if ($MissingPatchList{$BulletinID}+$FoundPatchList{$BulletinID}==0);
        if ($counter == 7) {
                print HTML "</tr><tr>\n";
                $counter = 0;
        }
        $MissingPatchList{$BulletinID} = "0" if (!$MissingPatchList{$BulletinID});
        $FoundPatchList{$BulletinID} = "0" if (!$FoundPatchList{$BulletinID});
        $MissingPatchList{$BulletinID} = "$pad{(length($MissingPatchList{$BulletinID}))}$MissingPatchList{$BulletinID}";
        $FoundPatchList{$BulletinID} = "$pad{(length($FoundPatchList{$BulletinID}))}$FoundPatchList{$BulletinID}";
.
.
.