sub commify {
    return $_[0] if $_[0] !~ m/^\d*?[.]?\d*$/;
    ( my $input = reverse 0+$_[0] ) =~ s<(\d\d\d)(?=\d)(?!\d*\.)><$1,>g;
    return scalar reverse $input;
}