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

This should answer points 1 and 3. As for 2, I do not know what you want to compare.

Abigail