#! /usr/bin/perl

use Time::Piece;
use strict;

my(@times) = ("00:05:21","00:08:05","00:10:33");

my $startTime = localtime();

print "Start: ", $startTime, $/;

foreach my $t (@times) {
	sleep 2;
	my $newTime = localtime();
	my $ss = $startTime + $t;     ### this is where I need advice
	if($ss > $newTime){
		print "\$ss is greater.\n";
                ### execute some functions here
	}

	print "Newtime: ", $newTime, $/;
	my $diff = $newTime - $startTime;
	print $diff, $/;