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