use CGI ':standard';
my @foo = qw/foo bar baz/;

print p({}, @foo), $/;
print p({}, \@foo), $/;

__END__
<p>foo bar baz</p>
<p>foo</p> <p>bar</p> <p>baz</p>