opendir(DIR, $semDir);
	my @filenames =readdir(DIR);
	closedir(DIR);
	my %customer_domain_hash;
	
	foreach my $line(@filenames)
	{
		$line =~ s/\..*//;
		print "$line\n";
		%customer_domain_hash = split(/@@@/, $line);
	}
print Dumper(\%customer_domain_hash)."\n";