Select Code to Download

#!/usr/bin/perl

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

#!/usr/local/bin/perl

...
    my $percentile = int($p * $#{$aref}/100);
    return (sort @$aref)[$percentile];
}