Select Code to Download

use strict;
use warnings;
...
sortie(@array);

PS C:\perl_practice> perl .\best_attempt_sort.pl
@array with  26 elements   =  -10 30 5 11 7 9 8 -585 -10 1 3 9 -30 5 -
+100 0 -1 255 -3 30 11 3 2 -300 -255 15
@sorted with 26 elements   =  -585 -300 -255 -100 -30 -10 -10 -3 -1 0 
+1 2 3 3 5 5 7 8 9 9 11 11 15 30 30 255