sub _store_list{
	my $self   = shift;
	my $header = lc shift;
	
	my $ref = _get_hash_of_level();
	   $ref->{$header} = {};
	$self->{_current_state} = 'LIST';
	$self->{_current_list}  = $header;
	
	say "Found $header" if $self->{_verbose};
}