my %thing = ( name => 'thing', count => 0, list => [] );

++$thing{ count };
print $thing{ name };
print $thing{ list }[ 123 ];