my $dna = 'gagagtatgcgattaatgcatattataaaaagcggcatgacggca';

for (1..10) 
{
	my $base = chop($dna);
	print "$base\n";
}