#! /usr/bin/perl

my $A='B';
local $B=7;
my $C=${$A};
print "A = $A - B = $B - C = $C\n";