You can create a hash with the total time for each name by doing something like this:

for (my $i=0; $i<@array; $i+=2) {
  my ($name, $time) = @array[$i,$i+1];
  $hash{$name} += $time;
}
[download]

-- Mike

--
just,my${.02}