1
2
3
4
5
6
7
8
9

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
my %test = (
    foo     => 'bar',
    test    => $test{foo},
);
print "'$test{test}'\n";

Quote

Global symbol "%test" requires explicit package name at test.pl line 7.
Execution of test.pl aborted due to compilation errors (#1)
(F) You've said "use strict" or "use strict vars", which indicates
that all variables must either be lexically scoped (using "my" or "state"),
declared beforehand using "our", or explicitly qualified to say
which package the global variable is in (using "::").

Uncaught exception from user code:
Global symbol "%test" requires explicit package name at test.pl line 7.
Execution of test.pl aborted due to compilation errors.
at test.pl line 9.