while (my $line = <>) {
	foreach my $count (20, 30) {
		count_bases($line, $count);
	}
}