my @a = ( {}, {}, {} );
print $a[3]{foo};
print scalar @a . "\n";