foreach $item (@results) {
@line=split/,/, $item;
$seen{$line[1]}="0";
#$seen{$item}=0;
#print "LINE 1 $line[1]\n";
}
foreach $item (@results) {
@line=split/,/, $item;
if ($line[0] =~ /1|6|7|8|9|5/) {
&integrate;
sub integrate {
%matching=();
if ($line[0]=~/6|7|8|/) {
$overlapc=$line[1];
	foreach $itemi (@eresults) {
	@linei=split/,/, $itemi;
		if ($linei[1] eq $line[1]) {
		@matchone=split/ /, $linei[2];
		$lengthandn=$line[4].',', $line[5]; ##error here--- Useless use of array element in void context--can u please tell me what this line does.
		$matching{$matchone[0]}="$lengthandn";
		$matching{$matchone[1]}="$lengthandn";
		#$seenclone{$matchclone[1]}="1";
#print  "678 line 1 $line[1] Length $lengthandn matchclone $matchclone[1] m0 $matchclone[0]\n";
		}
	}