#!/usr/bin/perl -w

use strict;
use warnings;

open (FILE,"$ARGV[0]") or die;
open (WRITE,">ca_0.01_1.txt");

while( my $line = <FILE> )
{
     my($index, $key, $data, @rest) = split("\t",$line);

     if(($key<=0.01) && ($index=="0"))   
     {
         next if  ( $data>=-8);
         next if  ($data<-9);
        #next if ($index!=0);
        #next if ($index!=1);
        print WRITE ($index, $key, $data, @rest),"\n";
    }
}
close (WRITE);
close (FILE);
exit;