sub my_sub { print "hello\n"; } my $var = 5; my $subname = some_nice_function(\&my_sub); # should return 'main::my_sub' my $varname = some_nice_function(\$var); # should return '$var' or 'var'