I do not yet know of a specific module for finding local maxima. However, for global maxima and minima use List Util.

use List::Util qw(max min);

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

my $max = max(@array);
my $min = min(@array);
[download]

- Miller