while(<$IN>){
        chomp;
        my ($id, $sum, $haploStr) = split ('\t',$_);
        push @{$data{$id}{$sum}}, \$haploStr;
    }
    
    my @keys = keys %data;
    my $j = 1;
     
     for my $i ( 0 .. $#keys ) {
        my $key1 = $keys[$i];
        my $count = 1;
        for my $sum1 ( %{ $data{$key1} } ) {
            for my $str1 (@{$data{$key1}{$sum1}}){
                for my $key2 ( @keys[ $i + 1 .. $#keys ] ) {
                    for my $sum2 ( %{ $data{$key2} } ) {
                        for my $str2(@{$data{$key2}{$sum2}}){
                            if ($$str1 eq $$str2){
                                #print "MATCH: $$str1 \t $$str2\n ";
                                $count++;
                                undef @{$data{$key2}{$sum2}};
                            }
                        }
                    }
                }
            }
        }
        print "H$j\tMatching Pattern as $key1\t $count\n";
        $j++;
   }