my(@kmers);
my($x) = 0;
my($y) = 0;
for ($x=0, $x<7, $x++){				
	for ($y=0, $y<$AoA[$x], $y++){
		my($firstword) = '';
		$firstword = $AoA[$x][$y] =~ /^(\w+)/;
		push @kmers, $firstword;
		print $firstword."\n";		
		}
	}