As I understand it, you essentially want your times to be binned, like in a histogram, right? If the output you are showing is your final output, my suggestion may be overkill, but if it is an intermediate form of the data and you plan to go further, you should check out Math::SimpleHisto::XS or Math::Histogram.