sub percent { my ($num, $denom) = @_; $denom > 0 ? sprintf("%2.1f%%", ($num/$denom) *100) : "00.0%"; }