Or, even better:

open(DATA, $files{$_}) or die $!;
[download]

Removed unnecessary typeglob symbol and added error message.

Update - I promise to read all of the thread before commenting next time. this was all already covered

wait, why are we opening DATA, isn't that listed in perldata as a magical filehandle, attached to all the cruft after __DATA__ or __END__ at the end of your script?

not that it matters here, but it's woth noting ... also, perhaps a lexical filehandle

@_=qw; ask f00li5h to appear and remain for a moment of pretend better than a lifetime;;s;;@_[map hex,split'',B204316D8C2A4516DE];;y/05/os/&print;