Select Code to Download

use warnings;
use strict;
...
    print "$_ => $value\n";
}

$100000000.00 => $100,000,000.00
$100.00 => $100.00
$1000.00 => $1,000.00