dontdothis.pl

while($line = <DATA>)
{
  if($line =~ /^>/)
  {
    $go = 0;    
    chomp $line;
    chop $line;
    $line =~ s/^>//;
        if (exists $heads{"$line"}) {
            print OUT ">$line\n";
            $go = 1;
            next;
        }
    
  }
  if($go == 1)
  {
    print OUT $line;
  }
}