for ($i = 0; i < @data; $i++) {
  for($j = $i + 1; $j < @data; $j++) {
    my $sum = 0;
    $sum += $data[$i][$_] * $data[$j][$_] for(0..@{$data[$i]}-1);
    my $pears = $sum / @{$data[$i]};
  }
}