sub correlation {

  print "I am in the correlation subroutine";

  my ($x_ref, $y_ref) = @_;   

  print "\nWe are in the correlation subroutine\n\n";


 # print Dumper ($x_ref, $y_ref);

  print Dumper length($x_ref);
  print Dumper length($y_ref);


  my $lfit = Statistics::LineFit->new();
  $lfit->setData($x_ref, $y_ref);

  my ($intercept, $slope) = $lfit->coefficients();
  my $rSquared = $lfit->rSquared();

##</code><code>##

I am in the correlation subroutine
We are in the correlation subroutine

$VAR1 = 16;
$VAR1 = 16;
Length of x and y arrays must be equal! at rebuild.pl line 335
No valid data input - can't do regression at rebuild.pl line 337
No valid data input - can't do regression at rebuild.pl line 338