Please use the  <code> </code> tags around your code. It's barely readable.

This line is probably the cause of your problem:

foreach my {$line[10]}(keys %data) {
[download]

... but it's hard to suggest anything when we don't know what your code is supposed to do.

Take a look at the example of correct foreach use in the documentation that came with your Perl.