Select Code to Download

sub _get_seed {
    my $self       = shift;
...
        $hd_sum[$oligo_indice] =
            List::Util::sum( @{ $self->{hd_matrix_ref}->[$oligo_indice
+] } ); # 476
    }

for my $oligo_indice ( 0 .. $#{ $self->{oligo_ref} } ) {
 print "index: $oligo_indice (";
...
 }
 print "\n";
}