Two things:

1. Don't open to the DATA filehandle; this is a reserved filehandle name in Perl. Open to INPUT instead (for example).
2. You might want to try reading from the filehandle... :)

-----

Be bloody, bold, and resolute; laugh to scorn
The power of man...