sub normalizer {
	# to normalize an input array bw 0 and 1
	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
	foreach my $element(@array) {	# loop over args
		my $numdiv = $element - $min_numarray;	# numerator: n - min total
		my $numden = $max_numarray - $min_numarray; # denominator: max total - min total 
		my $normalized = my $numdiv / $numden; # normalize
    }
	return $normalized;
}