Just another Lisp/Prolog-like lists test.

LinkedList.pl

#!/home/user/localperl/bin/perl

use v5.20;
use strict;
use warnings;

# linked lists test

use feature qw| say signatures |;
use Data::Dumper;

sub dumper (@data) { say Dumper @data }

sub linked (@args) {
    my $list = [ ];

    if (@args) {
	$list -> [0] = shift @args;
	$list -> [1] = [ linked (@args) ];
    }
    else {
	$list -> [0] = [ ];
    }

    return @{ $list };
}

dumper [ linked 'A' .. 'D', qw| W Z Y K | ]; # array-like
dumper [ linked map { [$_, $_ + $_] } 1 .. 5 ]; # matrix-like
dumper [ linked [[1, 2], [3, 4]], [[5, 6], [7, 8]] ]; # rank 3-like

# end of script