my $L = {
	value => "A", next => {
		value => "B", next => {
			value => "C", next => {
				value => "D", next => undef,
			}
		}
	}
};