$norm_min=1; $norm_max=3; $mini; $maxi; $mini=; $maxi=$mini; @figures=; foreach (@figures) { chomp; $mini=$_ if $_<$mini; $maxi=$_ if $_>$maxi; } print "$mini $maxi\n"; foreach (@figures) { chomp; my $result=($_ - $mini) * ($norm_max - $norm_min) / ($maxi - $mini) + $norm_min; print "$_: $result\n"; } __DATA__ 10 3 50 -8 100 67