use strict;
use warnings;

my @a=(1,5,2,4);
print "Ascending order:";
print sort(@a);
print "\n";
print "Descending order:";
print reverse sort(@a);