$data1 = {'PRO' => 'acctaat', 'SECVU' => 'gtgtgtgttta'};
$data2 = {'PRO' => 'ttatctt', 'SECVU' => 'ttatcttatg'};
$data3 = {'PRO' => 'acgaa',   'SECVU' => 'ttatggtcagt'};
$data4 = {'PRO' => 'accttaa', 'SECVU' => 'ttcggagt'};
$data5 = {'PRO' => 'ttatctat','SECVU' => 'tatcttatg'};
$data6 = {'PRO' => 'acgata',  'SECVU' => 'ttataaatcagt'};
$data7 = {'PRO' => 'agggtt',  'SECVU' => 'ttatgtgactgt'};

$adrcr1 = {'GENA1' => $data1, 'GENA2' => $data2, 'GENA3' => $data3};
$adrcr2 = {'GENA1' => $data4, 'GENA2' => $data5, 'GENA3' => $data6, 'GENA4' => $data7};

$GENOM = {'CROMOZOM_1' => $adrcr1, 'CROMOZOM_2' => $adrcr2};

#NIVELURI DE DEREFERIRE

$adresa = $GENOM;
print "\nAdresa întregului genom: $adresa\n";
@continut = keys %{$GENOM};
print "La adresa: $adresa se găsesc: @continut\n\n";

$adresa = $GENOM->{CROMOZOM_2};
print "Adresa cromozomului.2 este: $adresa\n";
@continut = keys %{$GENOM->{CROMOZOM_2}};
print "la adresa $adresa se gaseste @continut\n\n";

$adresa = $GENOM->{CROMOZOM_2}->{GENA1};
print "Adresa genei.1 de pe cromozomul.2 este: $adresa\n";
@continut = keys %{$GENOM->{CROMOZOM_2}->{GENA1}};
print "La adresa $adresa se găsesc @continut\n";

print "Secventa utila a genei.1 de pe cromozomul.2 este: $GENOM->{CROMOZOM_2}->{GENA1}->{SECVU}\n";