#!/usr/bin/perl

use strict;
use warnings;
use Statistics::Descriptive::Weighted;

my @data = (1..2000000);
my $stat = Statistics::Descriptive::Full->new(); 
$stat->add_data(@data); 
print $stat->quantile(1), "\n";