Select Code to Download

use Sort::Key 'keysort'; # or ukeysort, for optimisation freaks
@array = keysort { abs } @array;