Select Code to Download

sub correlate {
  my ($p1,$p2,$v) = @_;
...
  my $cor = $xy / sqrt($x2 * $y2); 
  print "$p1 $p2 $v $cor\n";
}

#!/usr/bin/perl
use strict;
...
  my $cor = $sigma / ( $count - 1 ) ;
  print OUT "$p1 $p2 $v $cor\n";
}