my @return = correlation(\@primarys_array, \@secondarys_array);
use Data::Dumper;  warn Dumper \@return;