Help for this page

Select Code to Download

Select or download this

use strict;

my @array = qw(2aa 2ba 12kf 9cn 9vn 21sg);
my @sorted = sort {$b <=> $a || $b cmp $a } @array;
print $_,$/ foreach @sorted;

Select or download this

my @array = qw(2aa 2ba 12kf 9cn 9vn 21sg);
my @sorted = sort {$b <=> $a || $a cmp $b } @array;
print $_,$/ foreach @sorted;