my $refX = shift;

##</code><code>##

          $den *= ( $refX->[$i] - $refX->[$j] );