use strict;
use warnings;
my @array = ( "This\ndog",
              "That\nhorse",
              "Those\nmice" );
my @newarray = map { split "\n" } @array;
{
    local $, = "\t";
    print @newarray, "\n";
}