my $var = 10;
sub print_name{
*glob = \$_[0];
print "Name of the variable ".*{glob}{NAME}."\n";
}
print_name $var;

Output: glob
Expected output: var