my $num_in = 1234567.89;
my ($i, $d) = split /\./, $num_in;
$i = reverse($i);
$i =~ s/\G(\d{3})(?!$)/$1./g;
$i = reverse($i);
my $num_out = "$i,$d";
print($num_out, "\n");