my $L;
for ( reverse qw / A B C D E F G/) {
	my $pt = { value => $_, next => $L };
	$L = $pt;
}