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