use Math::Round qw/round/;

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