use List::Util;

# assume data in @data
my $max = max @data;
my $min = min @data;
my $sum = reduce { $a + $b } @data;
my $avg = $sum / @data;