Select Code to Download

foreach $element (@dports) {
...
  print "$key\n" x $count_hash{$key} if $count_hash{$key};
}

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