find .|perl -lne'$t{19000100+sprintf"%02d"x3,(localtime((stat)[9]))[5,4,3]}+=-s if!-d}{print"$_ $t{$_}"for sort keys%t'