#!/usr/bin/perl -wl
use strict;

my $hashref = { foo => { bar => 'xyzzy' } };

sub name_me {
    # Note: there is no $hashref->{foo}{foo}
    return \ $hashref->{foo}{foo};
}

$a = name_me();

print $a;

print $$a;

print ${ name_me() }