Use of uninitialized value at foo.pl line 4, <DATA> chunk 1 (#1)