#!/usr/local/bin/perl -w
# lol.pl -- Demo der list of list

use strict 'refs';

$lref = ["Dies", "ist", ["ein", "lustiger"], "test"];
@newlist = @{$lref};

for ($i=0; $i<=$#newlist; $i++) {
    print "$i: $newlist[$i]\n";
}

print "Unterliste: ";
print $lref->[2][1], "\n";