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];


##</code><code>##

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

##</code><code>##

 tags, so allways do that, please. 


<div class="pmsig">
<div class="pmsig-334202">
<br><br><code>
our @item = reverse (114, 101, 107, 99, 97, 104, 32, 108, 
114, 101, 80, 32, 114, 101, 104, 116, 111, 110, 97, 32, 116, 115, 117, 74); local $my = reverse ")meti@\ ,rhc (pam tnirp";eval $my;