获取子程序输入的变量名称

Question

有没有办法将输入的变量名称获取到子程序？我想做以下事情:

use MyModule;
my $x = 'test';
MyModule::print_var_name($x); # prints '$x'

当然,有很多情况下这没有意义,例如print_var_name(1+2).只有简单的案例对我来说很重要.

我的计划是使用此变量名称作为漂亮打印功能的合理默认值.