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