my ($y_axis_intercept, $gradient, $R2) = correlation(\@primarys, \@secondarys);