in reply to Golfing a size/date grabber

Following your basic strategy, but using -s, Time::Piece and YAML:

perl -MTime::Piece -MYAML -nle '$t=localtime+(stat)[9];$d{$t->ymd}+=-s;END{print Dump \%d}'

In Section Seekers of Perl Wisdom