On the line where you defined the handle for the output file open (OUT, ">output"); you have to use >> intead of > because you are creating a new output file each time you have to iterate the foreach.

Resuming the code should be: open (OUT, ">>output");.

Francisco Jaen