http://www.perlmonks.org?node_id=46803


in reply to sorting mm/dd/yy

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

[download]

In Section Seekers of Perl Wisdom