This:

while (<FILE>)
{
@array = <FILE>;
[download]

is just wrong. Either you read the file line by line with a while loop, or you "slurp" it into an array, but don't do both. The you are constructing a @a array and print $a, a scalar variable. The following pragmas:

use strict;
use warnings;
[download]

would have picked up these errors.