You shouldn't read DATA inside the while loop. In the first iteration of the while loop,

my @files = (<DATA>);
[download]

sucks up what's left in DATA and the loop terminates.