#!/usr/bin/perl -w

use strict;

my $foo;

$foo = 1500;
print myformat($foo, 2) . "\n";

sub myformat {
    my ($number, $places) = @_;
    my $decimal;

    $decimal = "";
    for (1 .. $places) {
        if ($number) {
            $decimal .= chop $number;
        }
        else {
            $decimal .= 0;
        }
    }
    return "$number\." . reverse $decimal;
}