use constant FOO => 42;

my $var = 'FOO';

print &{$var} . "\n";
print defined( &{$var} ) ? "true\n" : "false\n";
[download]

Result:

# 42
# true
[download]

But this is a bad idea, on many levels ...