Select Code to Download

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

32431.19 => 32431.19
20 => 32451.19
-10 => 32441.19
-31800 => 641.189999999999