for (my $i=1; $i<scalar @time; $i++) {
        #my ($h, $m, $s) = split(/:/, $current_time);
        @t1 = split(/:/, $time[$i-1]);
        @t2 = split(/:/, $time[$i]);

        $prev = $t1[0] * 3600 + $t1[1] * 60 + $t1[2];
        $actual = $t2[0] * 3600 + $t2[1] * 60 + $t2[2];
        $odds = $actual - $prev;
        if ( $odds < 2 ) {
            print $ip[$i] . "\t" . $odds . "s" .  "\n";
        }
    }