my @array2 =split "\n", @array;
print $array2[1];

##</code><code>##

use strict;
use warnings;

my @array = split "\n", argsub();

sub argsub {
    my $string = "This is\nthe string\nto split.\n";
    my @ary = ( "The\ncat",
                "The\ndog",
                "The\nmouse" );
    if ( wantarray ) { 
        print "List context.\n";
        return @ary;
    } else {
        print "Scalar context.\n";
        return $string;
    }
}

##</code><code>##

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";
}

##</code><code>##

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