my @array = (1,2,3,4);
my $ref = \@array;

my $addr = hex +($ref=~/(?<=\()[^)]+/g)[0];

##</code><code>##

my $rs = sprintf "ARRAY(0x%x)", $addr;