#!/usr/bin/perl
# your code goes here
 
sub getTimeDiff {
	my ($times) = @_;
 
	my @times = sort {$a cmp $b} @{$times};
	my ($endhour, $endminute, $endsecond, $starthour, $startminute, $startsecond) = (split(':', $times[0]), split(':', $times[1]));
	my $diff = ($starthour * 60 * 60) + ($startminute * 60) + ($startsecond) - ($endhour * 60 * 60) - ($endminute * 60) - ($endsecond);
 
	return $diff;
}
 
print(getTimeDiff(["13:00:00", "13:35:17"]));

IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQoKc3ViIGdldFRpbWVEaWZmIHsKCW15ICgkdGltZXMpID0gQF87CgkKCW15IEB0aW1lcyA9IHNvcnQgeyRhIGNtcCAkYn0gQHskdGltZXN9OwoJbXkgKCRlbmRob3VyLCAkZW5kbWludXRlLCAkZW5kc2Vjb25kLCAkc3RhcnRob3VyLCAkc3RhcnRtaW51dGUsICRzdGFydHNlY29uZCkgPSAoc3BsaXQoJzonLCAkdGltZXNbMF0pLCBzcGxpdCgnOicsICR0aW1lc1sxXSkpOwoJbXkgJGRpZmYgPSAoJHN0YXJ0aG91ciAqIDYwICogNjApICsgKCRzdGFydG1pbnV0ZSAqIDYwKSArICgkc3RhcnRzZWNvbmQpIC0gKCRlbmRob3VyICogNjAgKiA2MCkgLSAoJGVuZG1pbnV0ZSAqIDYwKSAtICgkZW5kc2Vjb25kKTsKCQoJcmV0dXJuICRkaWZmOwp9CgpwcmludChnZXRUaW1lRGlmZihbIjEzOjAwOjAwIiwgIjEzOjM1OjE3Il0pKTs=