http://www.perlmonks.org?node_id=1202584

Tabish has asked for the wisdom of the Perl Monks concerning the following question:

this is my code

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;