Oops. I wrote the while version first and forgot to change the shift into a plain $_ when I copypasted. Fixed.

Makeshifts last the longest.