Select Code to Download

use strict;
...
    print $item->{data}."\n";
    $item = $ll->[$item->{next}];
}

use strict;
use warnings;
...