my @new = map { split /\t/ } split /\n/, $data;