$NumOfPortsToGet = 10;
$c = 0;
foreach $value (sort {$Stats{$a} cmp $Stats{$b}} keys %Stats) {
	if ($c < $NumOfPortsToGet && $value ne "UnauthOrigin") {
		$Ports[$c] = $value;
		$c++;
	}
}