Name "main::DATA" used only once: possible typo at a3.pl line 24.
readline() on unopened filehandle DATA at a3.pl line 24.