Select Code to Download

use strict;
use warnings;
...

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

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