$Stats{$DestPort}++;
$Stats{$DestPort}{covert}{"$intSrcFound|$hshIPtoDomainIndex{$strDst}|$DstIP|$SrcIP|$DestPort|$Protocol"}++;

##</code><code>##

foreach $entry (sort keys %{ $Stats{$TopPorts[$a]}{covert} }) {
	# my code to print out various HTML
        # elements is typically here
}