my $diff = ($new*10000) - ($old*10000);

##</code><code>##

my $diff = 0 + sprintf '%.0f', ($new*10000) - ($old*10000);