perl -e 'my @a = qw(1:08 2:53 1:00); foreach(@a){($min, $sec)=split /:/;$time+=($min*60)+$sec}; print $time=int($time/60).":".(sprintf "%.2d", $time%60)."\n"'