#!/usr/bin/perl 
use strict;


my @lines;

my $i = 1;
while (<>) {
    if ($i and / clock / ... /data arrival time/ && $i--) {


	   
	    # print $_;

     push @lines, $_;

    }

    }


#print @lines[2], "\n";

my @lines_2 = split ( / /, @lines[2]);

print @lines_2[1];