Help for this page

Select Code to Download


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