$NumOfPortsToGet = 10;
$c = 0;
foreach $key (sort {$Stats{$a} <=> $Stats{$b}} keys %Stats) {
    ( $c < $NumOfPortsToGet ) or last;
    ($key eq "UnauthOrigin") or $Ports[$c++] = $key;
}