use charnames (); my $number = charnames::vianame("GREEK CAPITAL LETTER SIGMA");