In the "Update" part look at line 11 of your code. It reads "foreach $file(@lines);". This ';' at the end is not acceptable, so perl gives you error. You need { instead.

Looks like you're also missing closing } for your while. It should be before foreach.