awk 'NR==314{ print }' < script.pl will isolate the faulty line - it might have an unprintable character hiding in which case delete and retype that line.

After that for runtime errors or unexpected results, try using perl -d to run in debug mode and then "l" repeatedly until you see the numbered lines of the area of interest. b <line-number> to set a break point. r to resume execution. At the breakpoint x <expression> will show the value e.g. of $value - this can be employed before and after suspect statements in the code. w <variable> sets a watchpoint on a variable - execution is interrupted back to the debug prompt if its value changes. B * to remove all breakpoints. W * to remove all watches on variables. Also h for help and q for quit.