my $pt = { value => "D", next => undef };