#!/usr/bin/perl
use warnings;
use strict;

open my $IN, '<', 'test.txt' or die $!;

my $remember;
while (<$IN>) {
    my @columns = split /\t/;
    print "$remember\n" if $columns[3] > 1e-3;
    $remember = $columns[2];
}