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