gistfile1.pl

#!/usr/bin/perl

use strict;
use warnings;

{
  package Foo;
  use Data::Dump qw( dump );
  use Symbol;

  sub run {
    my $s = Symbol::gensym;
    ${*$s}{pea} = 'nut';
    dump $s;
    return;
  }
}

Foo::run;

gistfile2.txt

do {
  require Symbol;
  my $a = Symbol::gensym();
  *{$a} = { pea => "nut" };
  $a;
}