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