while (my $line = <$fhi>)
{
    # get $time

    print $fho $line unless $time > 34;
}