use strict;

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