Try:

my @ordered = reverse sort { $a <=> $b } @dports;
# or my @ordered = sort { $b <=> $a } @dports;
print "@ordered";
[download]

By default sort uses string comparisons. By using <=> you tell it to compare the values as numbers.