use Date::Manip; my $t = Date::Manip::Delta->new; for (@times) { $t = $t->calc($t->new_delta($_)); } print $t->printf("%hyh:%02mmm:%02sss\n");