use strict;
use warnings;
use 5.012;

our $x;

use Data::Dumper;
say Dumper($main::{x});     #%main:: is the name of the symbol table
say Dumper($main::{say});
say Dumper($main::{print});


--output:--
$VAR1 = *::x;   #typeglob for 'x', in package ::(shorthand for main::)

$VAR1 = undef;

$VAR1 = undef;