The only "efficiency" factor I see is that you are unpacking/splitting the @flab lines each time you read from <LONG_LIST>.

You should get that outside the loop, and perhaps save the contents of the split @flab into a hash, with the 'name' as the key.

This will enable you to lookup $hash{$sTab[1]} , instead of your current regex compare.

Please do not post word-processor mutilated, un-compilable code. That makes identifying your intent difficult.