my(@kmers);
for my$x (@AoA){
	for my$y (@$x){
		push @kmers, $y =~ /^(\w+)/; 
		print @kmers."\n";
		}
	}