#next FASTA_RECORD if $fasta_seen{ $para }++;
if ( $fasta_seen{ $para }++ ){
  print "DUPLICATE : $name \n $para\n";
  next FASTA_RECORD;
}