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