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