use Devel::Peek;
use Perl6::Form;

my $dog;
my $cat;
my $bob;
my $sue;

{
    my $pest    = 'flea';
       $dog     = \$pest;
       $cat     = \$pest;
       $bob     = \$dog;
       $sue     = \$cat;
}

###
say q{};

say     'Dump $dog:';
         Dump $dog;
say q{};

say     'Dump $cat:';
         Dump $cat;
say q{};

say     'Dump $bob:';
         Dump $bob;
say q{};

say     'Dump $sue:';
         Dump $sue;
say q{};

###
say q{};

say  q*|      $                     $$                      $$$            |*;
say  q*|-------------------------------------------------------------------|*;
print form
    qq*|dog   {<<<<<<<<<<<<<<<}     {<<<<<<<<<<<<<<<}                      |*,
            $dog,                   $$dog,
    qq*|cat   {<<<<<<<<<<<<<<<}     {<<<<<<<<<<<<<<<}                      |*,
            $cat,                   $$cat,
    qq*|bob   {<<<<<<<<<<<<<<<}     {<<<<<<<<<<<<<<<}       {<<<<<<<<<<<<} |*,
            $bob,                   $$bob,                  $$$bob,
    qq*|sue   {<<<<<<<<<<<<<<<}     {<<<<<<<<<<<<<<<}       {<<<<<<<<<<<<} |*,
            $sue,                   $$sue,                  $$$sue,
    ;
## end form
say  q*|-------------------------------------------------------------------|*;
say q{};

###
my $t       = 'A';

print   qq*|$t|  *;
            $t++;
say     q*   $dog eq   $cat: *, 
             $dog eq   $cat;

print   qq*|$t|  *;
            $t++;
say     q*  $$dog eq  $$cat: *, 
            $$dog eq  $$cat;

print   qq*|$t|  *;
            $t++;
say     q*   $bob eq   $sue: *, 
             $bob eq   $sue;

print   qq*|$t|  *;
            $t++;
say     q*  $$bob eq  $$sue: *, 
            $$bob eq  $$sue;

print   qq*|$t|  *;
            $t++;
say     q* $$$bob eq $$$sue: *, 
           $$$bob eq $$$sue;

#say   $pest;

say q{};

__END__

Output: 

Dump $dog:
SV = RV(0xa080f4c) at 0xa080f40
  REFCNT = 2
  FLAGS = (PADMY,ROK)
  RV = 0xa216eb8
  SV = PV(0x9fbb6d8) at 0xa216eb8
    REFCNT = 2
    FLAGS = (PADMY,POK,pPOK)
    PV = 0xa21cff0 "flea"\0
    CUR = 4
    LEN = 8

Dump $cat:
SV = RV(0xa08148c) at 0xa081480
  REFCNT = 2
  FLAGS = (PADMY,ROK)
  RV = 0xa216eb8
  SV = PV(0x9fbb6d8) at 0xa216eb8
    REFCNT = 2
    FLAGS = (PADMY,POK,pPOK)
    PV = 0xa21cff0 "flea"\0
    CUR = 4
    LEN = 8

Dump $bob:
SV = RV(0x9fdd9a4) at 0x9fdd998
  REFCNT = 1
  FLAGS = (PADMY,ROK)
  RV = 0xa080f40
  SV = RV(0xa080f4c) at 0xa080f40
    REFCNT = 2
    FLAGS = (PADMY,ROK)
    RV = 0xa216eb8
    SV = PV(0x9fbb6d8) at 0xa216eb8
      REFCNT = 2
      FLAGS = (PADMY,POK,pPOK)
      PV = 0xa21cff0 "flea"\0
      CUR = 4
      LEN = 8

Dump $sue:
SV = RV(0x9fdd8f4) at 0x9fdd8e8
  REFCNT = 1
  FLAGS = (PADMY,ROK)
  RV = 0xa081480
  SV = RV(0xa08148c) at 0xa081480
    REFCNT = 2
    FLAGS = (PADMY,ROK)
    RV = 0xa216eb8
    SV = PV(0x9fbb6d8) at 0xa216eb8
      REFCNT = 2
      FLAGS = (PADMY,POK,pPOK)
      PV = 0xa21cff0 "flea"\0
      CUR = 4
      LEN = 8


|      $                     $$                      $$$            |
|-------------------------------------------------------------------|
|dog   SCALAR(0xa216eb8)     flea                                   |
|cat   SCALAR(0xa216eb8)     flea                                   |
|bob   REF(0xa080f40)        SCALAR(0xa216eb8)       flea           |
|sue   REF(0xa081480)        SCALAR(0xa216eb8)       flea           |
|-------------------------------------------------------------------|

|A|     $dog eq   $cat: 1
|B|    $$dog eq  $$cat: 1
|C|     $bob eq   $sue: 
|D|    $$bob eq  $$sue: 1
|E|   $$$bob eq $$$sue: 1