Select Code to Download

    my $avgRatio = makeRatioAvg ( $ratio_ref );
    my $final    = makeFinal( $avgRatio ); 
...
    my @final = map { [ $first[$_] ] , [ $second[$_] ] } 0 .. $#first;
    return \@final;
}

sub spankTheMonkey {
    my( $infh ) = @_;
...
} ## end sub spankTheMonkey

sub DoWorkOriginal {
    my( $firstinput, $secondinput, $inFile, $outFile ) = @_;
...
    close $curInfile;
    close $OUT1;
} ## end sub DoWorkOriginal