Select Code to Download

use warnings;
use strict;
...
my@sorted = sort {$a cmp $b} @array;

print "The sorted array contains @sorted \n";