my @nr = (32431.19, 20, -10, -31800);
my $x = 0;
for (@nr)
{ 
  $x += $_*100;
  print "$_ => ".($x/100)."\n";
}