Write a Perl subroutine called get_count that computes the number of nucleotides of a single
SNP from case or control data. Asssume that the case (or control) data is given in a text
file containing one SNP genotype per subject. For example if the SNP is A/G the case input
file (called case.txt) may contain

AA
AA
AG
AG
AA

Your subroutine should assume the following main code:

open(IN, "case.txt");
@in=<IN>; %count=();
&get_count(\@in, \%count);

Upon return %count should have the keys A and G with values 8 and 2 respectively.

Submit your solution as a file called <firstname>HW13.pl to the teaching assistant Shikha
Kaushal (shikha.kaushal@gmail.com). Replace <firstname> with your first name.