Select Code to Download

use Devel::Peek;

...
@a = sort @a;
print STDERR "\nsorted as strings:\n";
Dump \@a;

@a = sort { my ($b, $c) = ($a, $b); $b cmp $c } @a