use strict;
use Data::Dump qw/dump/;

*m->{FOO} = 'foo'; # einfach Glob
dump %main::m;
dump $::{m};