use strict;
use warnings;

my $aFoo = [];
my $result = \$aFoo;

print 'ref $result : ' . ref($result) . "\n";
print 'ref $$result : ' . ref($$result) . "\n";