my @nr=('34455.28','-33907.55');
my $x=0;
foreach (@nr)
{ $x+=($_*100);
  print "$_ => ".$x/100 ."\n";  
}

34455.28 => 34455.28
-33907.55 => 547.729999999995