Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl
use strict;
...
    map {$_->[0]} sort {$a->[2] cmp $b->[2]} map {[$_, split '-']} @da
+ta;

print "$_\n" for @sorted;

Select or download this

AA-BA89-CB
AD-BA90-CC
AC-BA91-CA
AB-BA92-CA
AA-BA93-CA