just noticed a typo in my answer.

my $time_algo += $s for my $s @time2..5;
[download]

should really be changed to:

my $time_algo += $_ for @time2..5;
[download]

Originally posted as a Categorized Answer.