use strict;
my %a = (1,2);
my %b = (\%a, 3);
for (keys %b) { print %$_ };