elsif (/success/) { if ($ms < $invoke{ms}) { $ms += 1000; $epoch -= 1; } my $seconds = $epoch - $invoke{epoch}; my $millisecs = $ms - $invoke{ms}; printf "diff - secs: %2d ms: %3d\n", $seconds, $millisecs; }