foreach $day (
  map{join'/',(split/-/)[1,2,0]}
  sort
  map{join'-',(split'/')[2,0,1]}
  keys%totals
){
  print "$day\n";
}
[download]