use strict;

my @a = qw(1:08 2:53 1:00);

my ($tt, $mins, $sec);

for my $t (@a)
{
	my ($m, $s) = split /:/, $t;
	
	my $tm = $m*60;
	
	$tt = $tt + $tm + $s;      

}
$sec = sprintf ("%02d", $sec = $tt%60); #seconds

$mins = int($tt/60); #minutes

print "$mins:$sec";