say while $_ = shift @{ [1 .. 10] };  # Never stops, either.