use strict;
use Cwd;
my ($PWD) = getcwd;
my (@DirList);
my ($DirItem);
my (@SUBDirList);
my ($SUBDirItem);
my ($CurrentHtmlFile);
my (@Lines);
my ($Line);
my (%een);
my (@KeyWords);

opendir(DIR, $PWD) || die "Cannot Open The Directory \"$PWD\"\n";
	@DirList = readdir(DIR);
closedir DIR;

foreach $DirItem (@DirList)
{
	if ($DirItem =~ /^Sub/)
	{
		opendir(SUBDIR, "$PWD\\$DirItem") || die "Cannot Open The Directory \"$PWD\\$DirItem\"\n";
       			@SUBDirList = readdir(SUBDIR);
    		closedir SUBDIR;

		foreach $SUBDirItem (@SUBDirList)
		{
			if ( $SUBDirItem =~ /html$/)
			{
            			$CurrentHtmlFile = "$PWD\\$DirItem\\$SUBDirItem" ;
            			open (READ, "<$CurrentHtmlFile") || die "Couldn't Read From $CurrentHtmlFile";
            				$Line = <READ>;
	    				@Lines = split (/,/,$Line);
            			close (READ);
	    			push (@KeyWords, @Lines);
			}
		}
	}
}

foreach (@KeyWords) {++$een{$_};}
print sort keys %een;