Your description is misleading, since you're not trying to print "within the map function". OTOH your code still has many quirks which many people has been repeatedly warning you about, including but not limited to unchecked opens and useless pieces of code. Refusal to correct these bad habits is a symptom of your nonwillingness to follow the advices you're asking for...

Now, the way you chain the first map with grep suggests me that you have a poor understanding, if any, of the code you're working on. If this were for a one-time only dirty and uninformed hack, we could accept it. But since it seems you want to stick with perl, a basic understanding of it would be welcome. Intentionally avoiding it is irrespectful either.

All in all it's (next to) imnpossible to really understand from both your code and the description of your prolem what the latter is.