#!/usr/bin/perl -w
use Math::GSL::Statistics qw/gsl_stats_correlation/;
use strict;

my $data1 = [
            17, 18, 16, 18, 12,
            20, 18, 20, 20, 22,
            20, 10, 8, 12, 16,
            16, 18, 20, 18, 21
            ];

my $data2 = [
            19, 20, 22, 24, 10,
            25, 20, 22, 21, 23,
            20, 10, 12, 14, 12,
            20, 22, 24, 23, 17
            ];

my $x = gsl_stats_correlation($data1, 1, $data2, 1, 20);
print "x=$x\n";