#!/usr/bin/perl

$list = $tail = undef;

foreach (1..5) {
    my $node = [ undef, $_ * $_ ];
    $list = undef;
    $tail = \$list;
    foreach (1..5) {
	my $node = [ undef, $_ * $_ ];
	$$tail = $node;
	$tail = \$node->[NEXT];
    }
}