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

event after making the change @newarray is empty.

 if ( $lookup { !$strfile } ) {

Replies are listed 'Best First'.
Re^5: improve performance
by Corion (Patriarch) on Jun 08, 2015 at 12:21 UTC

    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.

Re^5: improve performance
by Anonymous Monk on Jun 08, 2015 at 12:41 UTC

    Note that you were already shown the correct code here; please take the time to read all of the replies.