use strict;
use warnings;
use Devel::Peek;
use B qw(svref_2object);

my $string = "Invasion of the Hive!";
my $ref = \$string;

my $obj = svref_2object( $ref );
Dump($ref);
Dump($obj);