#!/usr/bin/perl -w
use strict;
use warnings; 
my @data=<>;

foreach (@data)
{
 my @row=split(/\t/, $_);
 my $otuhead=shift(@row);
 my $logic=1;
   foreach (@row)
   {
   if ($_>=0.01){$logic++;}
   }  
 if ($logic!=1){print "$otuhead @row";}
 $otuhead=();
}