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

##</code><code>##

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

##</code><code>##

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