You're assigning the result of the open to the array, rather than reading the file:

open(DPATH,"...");
my @r = <DPATH>;
...
[download]