# will not localize $_ to the while loop
local $_; print while (shift @list);