while (my $line = <$FILE>) 
{

    my @columns = split(/\t/, $line);
       
 if($columns[6] <= 40)
     {
       print "$columns[0]$columns[1]$columns[2]$columns[3]$columns[4]$columns[5]$columns[6]$columns[7]"; }

else {next;
}