open DIFF, "<$diff_file" or print $query->p("Couldn't open $diff_file");
while (<DIFF>) {
	if (m/Cluster (\d+)/) {
		my $num = $1;
		# Read 6 lines;
		<DIFF>;<DIFF>;<DIFF>;<DIFF>;<DIFF>;<DIFF>;
		#my @ecs = split /, /;
		$clust_hash{$num} = $_;#\@ecs;
	}	
}
close DIFF;