my $stat = Statistics::Descriptive::Full->new(); $stat->add_data(@values); print "geometric_mean: ", $stat->geometric_mean(), "\n";