Re^2: splitting the scalar variables in an array

[afoken]

my   @dd;
push @dd, split "\n", $_ for @TotalHosts;

No need for push and for:

my @dd=map { split "\n" } @TotalHosts;

Alexander