[OT] getting an identifier from a ref

[Chris Warren]

I was writing a debugging routine and came across an issue I have not been
able to resolve. Basically, I have a reference and I would like to get the
identifier of the variable to which it refers.

For example:

 my $foo = 5;
 debugDisplay(\$foo);
 
 sub debugDisplay 
 {
     my ($var_ref) = @_;
     ...
 }

and somewhere inside debugDisplay I would like recover the identifier
'foo' from $var_ref.


I would really appreciate any ideas anyone had about how I might
accomplish this.

Thanks
        -Chris Warren
        [EMAIL PROTECTED]