use strict;
use warnings;
use Data::Dumper;

my @unsorted = map {int (1000 * rand ())} (1..100);
my @sorted = sort_try (@unsorted);

sub sort_try {






}
 print Dumper \ @sorted;