$units = sprintf "%.2f", $units*$p;

##</code><code>##

$units =~ s/\.?0+$//;