mucn13154:~ 1 501 $ perl -lwe 'use constant A1=>"abc"; my $var="A1"; print(eval($var))'
abc