symbol_alias()

Returns the symbol name(s) that point to a string. If more than one symbol points to a string, a comma-separated list is returned.

use Spectra; 

$Spectra::SYM{ "sym1"} = "abc"; 
print " the alias of 'abc' is " . Spectra::symbol_alias( "abc") . "\n";
#
# returns 'SYM1'
#

$Spectra::SYM{ "sym2"} = "def"; 
$Spectra::SYM{ "sym3"} = "def"; 
print " the alias of 'def' is " . Spectra::symbol_alias( "def") . "\n";
#
# returns 'SYM2, SYM3'
#