my @array = qw(foo bar baz);
system echo => $_ for @array;
[download]

And if you think the above is insane...

@array = qw(foo bar baz);

use File::Temp;
foreach my $string (@array)
{
    my $tmpfile = File::Temp->new;
    printf $tmpfile <<'HERE' => quotemeta($string);
{
    package Local::App::PrintString;
    use 5.010;
    sub run {
        say "%s";
    }
}
Local::App::PrintString->run(@ARGV)
    unless scalar caller;
HERE

    system $^X, $tmpfile->filename;
}
[download]