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=$line1; 
foreach $itemi (@eresults) { @linei=split/,/, $itemi;
if ($linei1 eq $line1) { @matchone=split/ /, $linei[2]; $lengthandn=$line[4].',', $line[5];