my $curr = sprintf("$%.2f", $value);