$zero = "0";
$total =~ s/\.(\d)$/.$1$zero/g;