#!/usr/bin/perl
use warnings;
use strict;
use Statistics::Descriptive;

#
# Warning: untested code.
#

my @data = (1,7,2,19,3,4,21,1092,6);

my $stat = Statistics::Descriptive::Full->new();
$stat->add_data(@data);
$stat->sort_data();
print $stat->percentile(25);