use warnings;
use strict;

print "Current Account Balance: ", asDollars ($_), "\n"
    for 100000000, 100, 1000;


sub asDollars {
    my $value = reverse sprintf '$%.2f', shift;
    $value =~ s/(\d{3})(?=\d)/$1,/g;
    return scalar reverse $value;
}