use strict;
use warnings;

my @data = qw(a-2 a-10 a-9 a-8 a-0 a-1 a-3 a-6 a-5 a-4 a-7);
my @sorted = map {'a-' . $_} sort {$b <=> $a} map {substr($_, 2, lengt
+h($_) -2) } @data;
print "@sorted\n";

__END__

Outputs:
a-10 a-9 a-8 a-7 a-6 a-5 a-4 a-3 a-2 a-1 a-0
[download]

my @sorted = map {'a-' . $_} sort {$a <=> $b} map {substr($_, 2, lengt
+h($_) -2) } @data;
[download]