use Devel::Pointer;

 my @aha = (1,2,3,4,5);
 my $ref = \@aha;
 my $ref2 = "$ref";

 my ($addr) = ($ref2 =~ m/\(\0\x(\d+)\)/);
 $real_ref = deref($addr);

 # $real_ref must now point to the @aha array..