# Programul este o platformă de test pentru a întelege mecanismul
# prin care se pot crea referințe pe două niveluri și modul în
# care acestea pot fi corect dereferite.
# Programul folosește un singur parametru:
# un fișier ce conține o listă cu numele fișierelor de citit.

use strict;
use warnings;

my $nume_lista_citire;
my $selectie;
my $i;
my @parametri;
my @continut;
my @lista_de_fisiere;
my @selectie;

@parametri = @ARGV;
$nume_lista_citire = $parametri[0];

open (FISIER, "<$nume_lista_citire");
@lista_de_fisiere = <FISIER>;
close FISIER;

for ($i=0; $i<=($#lista_de_fisiere); $i++)
	{
		chomp($lista_de_fisiere[$i]);
	}

for ($i=0; $i<=($#lista_de_fisiere); $i++)
	{
		open (FISIER, "<$lista_de_fisiere[$i]");
		$continut[$i] = [<FISIER>]; # variabila @continut contine doar adrese. 
		close FISIER;
	}
	
print "@continut\n";			# nivel.0 toate adresele fișierelor
print "$continut[0]\n";			# nivel.0 adresa index.0
print "@{$continut[1]}\n"; 		# nivel.1 conținutl array-ul de la adresa index.1
print "${$continut[1]}[0]\n";	# nivel.1 secvența identificată la index.0 -> index.1