@fast = sort @unsorted;
@slow = sort { $a <=> $b } @unsorted;

##</code><code>##

@fast = reverse sort @unsorted;
@slow = sort { $b <=> $a } @unsorted;