{ local $_; print while (shift @list); }