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