He's corrected it since he first posted. It used to say:

line 6: open (FH,$filename[0]);

as gothic_mallard also pointed out.