Thanks everyone for your help, especially merlyn, jarich, and abigail-II. One more script done, and a little bit better understanding of how file IO works in perl.