#!/usr/bin/perl
use Number::Format;
my $num = 12349329824342;
my $nf = new Number::Format(-thousands_sep => ',');  
my $separated_num = $nf->format_number($num);