my %time_for;
{
    my ($name,$time);
    $time_for{$name} += $time while ($name,$time) = splice @array, 0, 
+2;
}
[download]