Select Code to Download

use strict;

...
    print "sorted: $_\n"; }
foreach (reverse sort @arr3) {
    print "reversed: $_\n";    }

arr: 8 30
sorted: 30
...
sorted: 8
reversed: 8
reversed: 40