print "$_\n" for reverse split //, substr($dna, -10);

##</code><code>##

print "$_\n" for reverse split //, substr($dna, -10, 10, '');