#!/usr/bin/perl
use strict;
print keys %aa,", $bb, @cc\n";
BEGIN {our %aa=(1,11); our $bb=22; our @cc=(3,33); }

##</code><code>##

Global symbol "%aa" requires explicit package name at test.pl line 3.
Global symbol "$bb" requires explicit package name at test.pl line 3.
Global symbol "@cc" requires explicit package name at test.pl line 3.
BEGIN not safe after errors--compilation aborted at test.pl line 8.

##</code><code>##

1, 22, 3 33