$time = <>;   chomp $time;

##</code><code>##

while (<$fh>)
{
   chomp;
   my( $n, $i, $t ) = split;
   $found = 1 if $t eq $time;
}