Establish windows of 10kb and calculate the average Recomb Rate

##</code><code>##

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

...

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

##</code><code>##

my @recomb_all = get_contents ($recomb_all);

...

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

        push @contents, [ split ];