FILE1:
<snip>
2	2	2	2	2	2
2	2	2	2	2	2
2	2	2	2	2	2
2	2	2	2	2	2
</snip>

FILE2:
<snip>
2	1	2	2	1	2
2	2	1	2	2	2
2	1	2	2	1	2
2	2	1	2	2	2
</snip>


##</code><code>##

#!/usr/bin/perl

open (DATA, "FILE1");
@geno = <DATA>;

open (DATA2, "FILE2");
@dos = <DATA2>;

foreach (1..4){
$num=$_;
$dosage = $dos[$num];
$genotype = $geno[$num];

rsquared($dosage, $genotype);

}


sub rsquared(
$dosage =shift;
$genotype =shift;

###HELP HERE TO FIND R-squared


)