#!/usr/bin/perl use strict; use bigint; use Statistics::Descriptive; my $stat = Statistics::Descriptive::Full->new(); while (<>) { chomp; $stat->add_data($_); } print "min=".$stat->min()."\n"; print "max=".$stat->max()."\n"; print "mean=".$stat->mean()."\n"; print "medi=".$stat->median()."\n"; print "devi=".$stat->standard_deviation()."\n";