Perl scripts for analyizing polyploid DNA sequence data