And how is your question bioinformatics related?
You can try to ask at stackoverflow ("site for professional and enthusiast programmers" as biostar's "focus is bioinformatics, computational genomics and biological data analysis. ").

I agree, as it stands this is more a basic Perl programming question than a bioinformatics problem. Don't ask at StackOverflow though, because you will get roasted :)

You need to learn some basics of Perl programming: namely, how to (1) open a file for reading, (2) step through one line at a time, (3) split lines on a delimiter (tab in this case) and (4) access array elements (since splitting will generate an array with your file name in the second element).

Hello countcorvus!

We believe that this post does not fit the main topic of this site.

Really old question that's not really bioinformatics.

For this reason we have closed your question. This allows us to keep the site focused on the topics that the community can help with.

If you disagree please tell us why in a reply below, we'll be happy to talk about it.

Cheers!