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