$$>perl -MO=Deparse -le"@a=qw,1 2 3,;print while<@a>;"

@a = ('1', '2', '3');
print $_ while defined($_ = CORE::GLOBAL::glob(join($", @a), 0));

-e syntax OK