1 2 3 4 5 6 7
use List::Util qw(min max); my @array = qw(1 2 6 3 2 7 9 0); my $min = min @array; my $max = max @array; print "min: $min -> max: $max\n";