my @args = qw/
     name1
     name2
     name3
/;
my $all = "\n    name1\n    name2\n    name3\n";
my @arr = split ' ', $all;