use strict;
use warnings;

my @not_normalized = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
my @normalized = normalizer(@not_normalized);
print "@normalized";

sub normalizer {
    # to normalize an input array bw 0 and 1
    my @array = @_;
    use List::Util qw( min max );    # import min and max module
    my $min_numarray = min @array; # get min of args
    my $max_numarray = max @array; # get max of args
    my $numden = $max_numarray - $min_numarray; # denominator: max tot
+al - min total
    foreach my $index (0..$#array) {    # loop over args
        my $numdiv = $array[$index] - $min_numarray;    # numerator: n
+ - min total 
        $array[$index] = $numdiv / $numden; # normalize
    }
    return @array;
}
[download]