use Sort::Key::Maker sort_dates => sub { /(.{8})(.{6})/ }, qw(-int int
+);
my @sorted = sort_dates(@dateArray);
[download]