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

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