Symbol Table References from camel

test6.pl

#
#Symbol Table References
#

use feature ":5.14";
use Scalar::Util qw(refaddr);
use Data::Dumper::Concise;

my $a1 =sub {
print "...............";
};

my %h1 = qw{a 1 b 2};
*h2 = \%h1;

*a1 = \qw{a 1 b 2};

my @a1 =(1,2,3,4);

#my %a1 = qw (one 1 two 2);
#

open FH,">","C:\\temp\afile";

say Dumper *ENV{HASH};
say Dumper $a1;
say Dumper @a1;
say Dumper %a1;
say Dumper *FH{GLOB};
say Dumper *STDIN{FORMAT};
say Dumper *INC{ARRAY};
say Dumper *INC{HASH};

close FH;