$GENOM = {'CROMOZOM_1'=>{'GENA1'=>'tctctctc','GENA2'=>'tcgggt'},
          'CROMOZOM_2'=>{'GENA1'=>'tGGGGGctc','GENA2'=>'tcggtttt'}};
print "Adresa genomului este: $GENOM\n";
print "Componentele genomului sunt: ", %$GENOM, "\n";
print "A doua gena a cromozomului 1 este: $GENOM->{CROMOZOM_1}->{GENA2}\n";
print "Prima gena a cromozomului 2 este: $GENOM->{CROMOZOM_2}->{GENA1}";