@gena = ('cggca', 'tgatc', 'ttggc');
$referinta = \@gena;

#Modalități de a dereferi conținutul unui array
print "Adresa referintei este: $referinta\n";
print "Referinta pointeaza catre urmatorul continut: @{$referinta} \n";
print "Referinta pointeaza catre urmatorul continut: @$referinta \n";
print "Referinta pointeaza catre urmatorul continut: ${$referinta}[1] \n";
print "Referinta pointeaza catre urmatorul continut: $$referinta[1] \n";
print "Referinta pointeaza catre urmatorul continut: $referinta->[1] \n";

@restore = @{$referinta};
print "Aceasta este variabila restore: @restore\n";