in reply to Re^4: improve performance
in thread improve performance

That's not how a hash lookup works. Negating the lookup would be

if (! $lookup { $strfile } ) {

If you are struggling with this, most likely your diagnosis of the processing bottleneck warrants reevaluation as well.