my @sorted = sort {$b <=> $a} @dports;