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