Just a few comments that may or may not be helpful..

$file[$i]=do{local(@ARGV,$/)=$files[$i];<>};
[download]

What is this? Why do you localize @ARGV? Do you want to slurp the file? If so why?

mkdir("$name",0777)||print $!;
[download]

This creates a directory in the current working directory. Is that where you want it to be created?

$oldlocation="/home/newbie/ta/$file[$i]";
[download]

Are you sure you want $file[$i] (not sure what that contains) and not $files[$i] (the current filename).