Select Code to Download

Establish windows of 10kb and calculate the average Recomb Rate

my @recomb_all = @{get_contents ($recomb_all)};

...
...
    return (\@contents);
}    # ----------  end of subroutine get_contents  ----------

my @recomb_all = get_contents ($recomb_all);

...
...
    return @contents;
}    # ----------  end of subroutine get_contents  ----------

my $length = (scalar @recomb_all) - 1;

        @{$contents[$x]} = split /\s+/;

        push @contents, [ split ];