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} = "";
		}	
	}
}