|----DECIMAL --| |------BINARY-------|
ADDRESS VALUE ADDRESS VALUE
======= ===== ======= =========
0 2 00 0000 0010
1 7 01 0000 0111
2 3 10 0000 0011
3 42 11 0010 1010
####
$foo = 88;
####
$3 = 42;
3 = 42;
####
$3 = 42;
$2 = \$3;
####
print $$2;
####
my $A ;
my $B ;
my $C = 42;
$A = \$B;
$B = \$C;
say '$A:'; Dump( $A );
say '$B:'; Dump( $B );
say '$C:'; Dump( $C );
__END__
Output:
$A:
SV = RV(0x8a060b4) at 0x8a060a8
REFCNT = 1
FLAGS = (PADMY,ROK)
RV = 0x8bc9a38
SV = RV(0x8bc9a44) at 0x8bc9a38
REFCNT = 2
FLAGS = (PADMY,ROK)
RV = 0x8bc9a48
SV = IV(0x8bc9a44) at 0x8bc9a48
REFCNT = 2
FLAGS = (PADMY,IOK,pIOK)
IV = 42
$B:
SV = RV(0x8bc9a44) at 0x8bc9a38
REFCNT = 2
FLAGS = (PADMY,ROK)
RV = 0x8bc9a48
SV = IV(0x8bc9a44) at 0x8bc9a48
REFCNT = 2
FLAGS = (PADMY,IOK,pIOK)
IV = 42
$C:
SV = IV(0x8bc9a44) at 0x8bc9a48
REFCNT = 2
FLAGS = (PADMY,IOK,pIOK)
IV = 42