One potential problem is that you are looping on @data, then inside the loop, you are splitting @data.

Try relpacing:

    @list=split(/ /,@data);
[download]

with:

    @list = split /\s+/;
[download]