Perl programming updating data file