my @files = map { $_->[0] } 
            sort { $a->[1] cmp $b->[1] ||  $a->[2] <=> $b->[2] } 
            map { [ $_, /\.(\d{12}\-\d{4})/, /.+?-(\d+)\..+$/ ] } <DAT
+A>;

print $_,$/ for @files; 
</p>