Use of uninitialized value $header in substitution (s///) at 4perl.pl line 55.
Use of uninitialized value $header in say at 4perl.pl line 56.