use Number::Spell;

my $str=spell_number(519252);