http://www.perlmonks.org?node_id=988735


in reply to Re: Looking for pointers or optimizations.
in thread Looking for pointers or optimizations.

"First, you should always explicitly close any filehandle"
...not to mention checking your filenhandle in the first place ;)

open (INP, "<", "$filename") or die "cannot open input file";
Another thing: you use @ARGV in scalar context - I doubt that this is what you want.

I'm too lazy to be proud of being impatient.