perl -E '@arr=("a b",
    "c d",
    qw/e f g h a*/);
while (my $e = <@arr>) {
    say $e
}'
##</code><code>##

a
b
c
d
e
f
g
h
address.txt
address.txt~
analytic
ascii.htm
aux-no-lex.lst