#! perl -slw
use strict;
use Time::HiRes qw[ time ];

our $FNO //= 6;
our $V   //= 500;

my $start = time;
my @filtered;

while( <> ) {
    my @fields = split( "\t", $_ );
    $fields[ $FNO ] == $V and push @filtered,$_;
}
printf "Took %f seconds\n", time() - $start;
printf "Kept %u records\n", scalar @filtered;

__END__
C:\test>1036737 -FNO=6 -V=500 < numbers.tsv
Took 19.072147 seconds
Kept 2005 records

C:\test>1036737 -FNO=6 -V=500 < numbers.tsv
Took 19.021369 seconds
Kept 2005 records