Select Code to Download

my $normalized = my $numdiv / $numden;

foreach my $element(@array) {    # loop over args
    ... 
    my $normalized = my $numdiv / $numden; # normalize
}
return $normalized;

use List::Util qw( min max );

...

    return @array;
}