use constant A1 => "abc";
my $var = A1;        # remove double quotes
print $var;
[download]

Alternatively, set up a hash with your error messages:

use strict;

use constant ERR => 'Some error happened.';
use constant OK  => 'All is fine.';

my %messages = (
    'ERR' => ERR(),
    'OK'  => OK(),
);

my $res = some_func();
print $messages{ $res }, "\n";
[download]

Alternatively, you can invite the demons of symbolic references into your house, but they will eat your children:

use strict;

use constant ERR => 'Some error happened.';
use constant OK  => 'All is fine.';

my $res = some_func();
{
    no strict 'refs';
    print &$res(), "\n";
};
[download]

I guess you have a good reason to say $var="A1" instead of $var=A1, so

print(eval($var));
[download]

That's one way to solve the problem, in the same way that using a flamethrower to light a cigarette is "one way to solve the problem". Not good. Dangerous. Expensive. The other solutions in this thread are far better.

-- Randal L. Schwartz, Perl hacker

I dunno, I think using a flamethrower to light a cigarette is a great way to solve the problem of being addicted to cigarettes...

/me ducks, runs, and hides

But a pastry torch is a fine way to light a cigar. ;)

---

Revolution. Today, 3 O'Clock. Meet behind the monkey bars.

I would love to change the world, but they won't give me the source code