for my $i (0..$#data){
    my $sum_j = 0;
    $sum_j += $data[$_] for $i..$#data;
    $pears += $data[$i] * $sum_j;
}