Linklist in Perl

Haloo, kali ini saya akan menyambung postingan mengenai link list dari postingan sebelumnya di sini http://ngeblogapik.blogspot.co.id/2015/09/konsep-dasar-algoritma-link-list.html bagi yang belum tahu apa itu link list silakan dibuka dulu url di atas. Mohon agan baca dulu postingan saya yang sebelumnya supaya bisa nyambung sama yang sekarang ini gan :)

Kali ini akan saya share source code nya, monggo ....

$list = $tail = undef;

foreach (1..5) {
    my $node = [ undef, $_ * $_ ];
    $list = undef;
    $tail = \$list; #tail linklist nya
    foreach (1..5) {
my $node = [ undef, $_ * $_ ];
$$tail = $node; #tail = node setelah linklist terisi
$tail = \$node->[NEXT]; #isi linklist berikutnya
    }
}

nah, terima kasih, semoga bermanfaat :)