in reply to Could not open

You can clean up all your 'my' declares in one line:
my (@orgarr,@inparr,$recall,$laterhalf,$seqname,$per,$length,$compare, +$querry,$org,$segcompare);

Replies are listed 'Best First'.
Re^2: Could not open
by nobull (Friar) on Feb 04, 2005 at 20:01 UTC
    But by doing so you are treating the syptom in such a way as to prolong the underlying disease.

    If you declare all variables in the smallest applicable scope and use agregates where appropriate then it is very rare that you'd want to declare more then two lexical variables at once.