Help for this page
while(<@array>) { print; }
$$>perl -MO=Deparse -le"@a=qw,1 2 3,;print while<@a>;" ... -e syntax OK