my @nr=('32431.19', '20', '-10', '-31800');
my $x=0;
foreach (@nr)
{ $x+=$_;
  print "$_ => $x\n";
}