Okay, nice to hear things are improving. Now, regarding this line:

my ($Name, $Data)=split,1;
[download]

You need to look at "perldoc -f split", because the above is probably not doing what you intend. You also need to make sure that your reading logic matches the structure of the input file.

I think what you're intending there is something like:

my ($Name, $Data) = split( /\s+/, $_, 1 );
[download]

which means that, even though the line contains lots of space-separated tokens, just the first space on each line will be split, the part before it becomes $Name, and everything after it becomes $Data.