Select Code to Download

use strict;
use warnings;
use Data::Dumper;
...
print "\n$len \n";

print Dumper $L;

ABCD
4
...
          'value' => 'A'
        };

my $L = {
    value => "A", next => {
...
    }
};

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

$ perl linked_list.pl
ABCDEFG
...
                    },
          'value' => 'A'
        };