#!/usr/bin/perl -w
use strict;
use Statistics::Descriptive;
my @a = (1,2,3,4,5,6,7,8,9,10);

my $stat = Statistics::Descriptive::Full->new();
    $stat->add_data(@a);
my $uq = $stat->quantile(2);
print "$uq\n";