use IPC::Run qw(run);

my @arr = qw(
abc
def
);
run [ echo => q(') => join("\n", @arr) => q(') ], ">", \my $output;
print "O: [$output]\n";

run [ echo => q(') . join("\n", @arr) . q(') ], ">", \my $output;
print "O: [$output]\n";

run [ echo => join("\n", @arr) ], ">", \my $output;
print "O: [$output]\n";