Select Code to Download

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