my @list = map {
    $_->[0]
} sort 
    datesort
map {
    [ $_ , split /\//, $_ ]
} keys %days;