@dates = map { $_->[0] }
sort {  $a->[1] <=> $b->[1] }
map { my $f = $_; s/\D//g; [ $f, $_ ] }
@dates;