The advice of Anonymous Monk above is all excellent, but this for one thing will not fly.

($a,$b)=split ("\t");
$a=@a;
$b=@b;
[download]

Whatever you have in $a and $b after the split is immediately turned to 0 by assigning empty arrays to those variables.