1: my @list = map {
2:     $_->[0]
3: } sort 
4:     datesort
5: map {
6:     [ $_ , split /\//, $_ ]
7: } keys %days;