Perl functions for formatting monetary values
