my (@orgarr,@inparr,$recall,$laterhalf,$seqname,$per,$length,$compare,$querry,$org,$segcompare);