use vars qw($B);
my $A='B';
my $B=7;
my $C=${$A};
print "A = $A - B = $B - C = $C\n";