Perl format number

This is a little script to format numbers in Perl:

This is our result: