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