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.

Makeshifts last the longest.