use feature qw/say/;
use Math::Trig;
open FILE,"out02.txt";        
my @file= <FILE>;
close FILE;
my $aa = 0;
for (my $i =$aa; $i <=17822; $i++) {
    	if(($file[$i] >= 0.210)){
	open (OUTFILE,'>>out_t10-t10.txt'); 
	print OUTFILE $file[$i];
}
else{}
}