use warnings ;
use strict ;
open(OUT, ">exp.out") ;
open(FILE, "gene_exp.diff") ;
while(<FILE>){
       chomp ;
       my $tmp = $_ ;
       my @arr = split(/\t/, $tmp) ;
       unless($arr[7] == 0 or $arr[8] == 0){
               print OUT "$tmp\n" ;
       }
}
close(OUT) ;
close(FILE) ;