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";
##</code><code>##

CustomerA@@@DomainA
CustomerA@@@DomainB
CustomerA@@@DomainC
CustomerA@@@DomainD
CustomerA@@@DomainE
CustomerB@@@DomainA
CustomerB@@@DomainB
CustomerB@@@DomainC
CustomerB@@@DomainD
CustomerB@@@DomainE
$VAR1 = {
          'CustomerB' => 'DomainE'
        };