in reply to saving a file

You are still not using use strict; as recommended previously here and here.

In Section Seekers of Perl Wisdom