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