my $num = reverse shift;
$num =~ s/(\d{3})/$1,/g;
$num = reverse $num;