@{ $Arrays[$counter] } = split /\t/, $line;