Please use <readmore> tags in your post - it's really long in list view!

(See Writeup Formatting Tips)

Oh, and the reply by ikegami is spot on - you just need to put the open() call inside the loop and use a different filename each time. You don't need to close() the filehandle because (as stated in the perldoc for the open function which you can see using perldoc -f open) the open() call will close the filehandle first if necessary.