$secventa = 'acggtgata';
$referinta = \$secventa;

print "Adresa referintei este: $referinta \n";
print "Referinta pointeaza urmatorul continut: ${$referinta} \n";
print "Referinta pointeaza urmatorul continut: $$referinta \n";