http://www.perlmonks.org?node_id=1102315


in reply to Re^2: Is there any efficient way i can take out a specific column from hundreds of files and put it in one file?
in thread Is there any efficient way i can take out a specific column from hundreds of files and put it in one file?

The Anonymous Monk deleted the header row in the code provided above.

delete $row{Gene};

That seems like the easiest way to do it. To do what you are asking here you can use eof. Also refer to Variables related to filehandles