use strict;
use warnings;

my $ll = [ {data=> 'x',
            next=> 1},
           {data=> 'y',
            next=> 0}];

my $item = $ll->[0];
    
while(1)
{
	print $item->{data}."\n";
	$item = $ll->[$item->{next}];
}