Help for this page
#! /usr/bin/perl ... my $B=7; my $C=${$A}; print "A = $A - B = $B - C = $C\n";
#! /usr/bin/perl ... local $B=7; my $C=${$A}; print "A = $A - B = $B - C = $C\n";