nice code, but:

remove call to sum() out of the loop !

e.g.

my $sum_x = Sum(@x);

$xy_res[$i] = abs($y[$i] - ($sum_y/$n))*abs($x[$i] - ($sum_x/$n));
[download]