find -name *.p[lm] | perl -lne "$h{(localtime((stat($_))[10]))[5]+1900}++;END{map{print qq($_ $h{$_})} sort keys %h}"

2012 1176 (but this year i restored from bkp..)
2013 205
2014 1210
2015 730
2016 54