Select Code to Download

   my @sorted= Filter {
       s#\d{2}(\d+)#\1#g
   } sort Filter {
       s#(\d+)# sprintf "%02d%s", length($1), $1 #g
   } @data;

    my @data = qw/a.1 a.5 a.11 b.3 b.15/;

use Algorithm::Loops (MapCarE);

...
__OUTPUT__
1900103018003000100130037
Tue Sep 30 01:13:37 2003