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{}
}

##</code><code>##

 open(OUTPUT, '|sort >foo')  # pipe to sort
        or die "Can't start sort: $!";
    #...                        # print stuff to output
    close OUTPUT                # wait for sort to finish
        or warn $! ? "Error closing sort pipe: $!"
                   : "Exit status $? from sort";
    open(INPUT, 'foo')          # get sort's results
        or die "Can't open 'foo' for input: $!";