You're welcome. I was wondering if there was a way to get rid of your pop/shift, and it turns out you could use splice instead. You determine if this is too clever or not:

    return map { ($_) x 10 } splice @dates, 1, -1;
[download]