my $normalized = my $numdiv / $numden;

##</code><code>##

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

##</code><code>##

use List::Util qw( min max );

sub normalizer {
    my @array = @_;

    my $min_numarray = min @array;
    my $max_numarray = max @array;

    my $numden = $max_numarray - $min_numarray;
    foreach my $element (@array) {
        my $numdiv = $element - $min_numarray; 
        $element = $numdiv / $numden;
    }

    return @array;
}