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

##</code><code>##

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