# Comments - To be ignored
field 1	;field 2	;field 3	;field 4	;field 5;	field 6;

##</code><code>##

while (<FILE>) {  
	chomp;
	if ($_ !~ m/#/) {        
		s/\t//g;
		s/\s//g;
		($f1,$f2,$f3,$f4,$f5) = split (/;/, $_,5);
		push @file,$_;		

		unless ($seen{$f4}) {
			$seen{$f4}=1;
			$mailhouse{$f4} = "";
		}	
	}
}

##</code><code>##

for $mh ( keys %mailhouse ) {
	foreach (@file) {
		($g1,$g2,$g3,$g4,$g5) = split (/;/, $_,5);
		if ($mh eq $g4) {
			push @{ $mailhouse{$mh} }, $g1;
		}
	}	
}