You can use:

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