my $aap = {};
my $noot = [];
local $\="\n";
print $aap; print $noot;
__END__
HASH(0x804d170)
ARRAY(0x804d23c)