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