my @files = <*.htm>;
foreach $file (@files) {
	open($file or die "can not open .txt file: $!") ;
	while(<$file>) {
	my $dom = Mojo::DOM->new(<$file>);	
	my $text = $dom->all_text();
		for (split/\s+/, $text) {
			push @sequence, $_ ;
			if (@sequence >=10) {
			shift @sequence until @sequence ==10 ;
			++$sequences{"@sequence"};
			}
		}
	}
}
close($file) ;