#!/usr/bin/perl
use strict;
use warnings;
use Data::Dump;
use Symbol;

my $glob = Symbol::gensym;

warn "$glob\n";
dump $glob;

*$glob = { a => 1 };

warn "$glob\n";
dump $glob;

%{ *$glob } = ( 'a' => 1 );
@{ *$glob } = ( 1 .. 5 );

warn "$glob\n";
dump $glob;