DB<1> @nr=('32431.19', '20', '-10', '-31800');

  DB<2> $x=0;

  DB<3> $x += $_ for  @nr;

  DB<4> print $x
641.189999999999
  DB<5> printf '%.2f', $x;
641.19