I'd think to preserve lines you'd want to use a variation, like:

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

This way you end up with an array of arrays, one for each line in the file.