in reply to Summing Lines

Have a look at Statistics::Descriptive (frequency_distribution), Date::Manip (ParseDate), List::Util (sum).

print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});