Perl: prettyPrintNumber