for ($incEnergy = $maxEnergy; $incEnergy > $minEnergy; $incEnergy += $scale)

##</code><code>##

my ($filename, $x, $y, $min, $max) = @_;

##</code><code>##

$$max = $y->[-1] if $y->[-1] > $$max;