foreach $day ( map{join'/',(split/-/)[1,2,0]} sort map{join'-',(split'/')[2,0,1]} keys%totals ){ print "$day\n"; } [download]
In reply to Re: sorting mm/dd/yy by I0 in thread sorting mm/dd/yy by electronicMacks