substr($_, 0, 8) =~ tr/0-9/9876543210/ for @dateArray;
@dateArray = sort @dateArray;
substr($_, 0, 8) =~ tr/0-9/9876543210/ for @dateArray;