You can do better without chop there, though..
print "$_\n" for reverse split //, substr($dna, -10);
And if you need $dna to loose the last characters,
print "$_\n" for reverse split //, substr($dna, -10, 10, '');
Brackets not necessary here, but added for readability.