use List::Util qw(max min);

my @array = qw(5 7 3 25 10 15 8);

my $max = max(@array);
my $min = min(@array);