perl readwritefile.pl
Use of uninitialized value $a in print at readwritefile.pl line 15, <$fi> line 1.
Use of uninitialized value $a in print at readwritefile.pl line 15, <$fi> line 2.
Use of uninitialized value $a in print at readwritefile.pl line 15, <$fi> line 3.