Select Code to Download

sub chain {
    my ($genome,@genome) = @_;
    for ($i..$#genome) {
 ....

sub hash_array {
    my ($genome,@genome) = @_;
    $counts { $genome [$i] . $genome [$i + 1] } ++ for (0..$#genome);
}