in reply to The maybe it is better written this way tool
Change foreach my $line ( <FILE> ) { to while ( my $line = <FILE> ) {