Perl script to parse VCF file !
...($vcf_file); print "Total entries: ", scalar(@vcf_entries), "\n"; print "---------------------------\n"; my %chromosome_counts; for my $entry (@vcf_entries) { $chromosome_counts{$entry->{CHROM}}++; }...118 days ago