use strict;
use warnings;

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