http://www.perlmonks.org?node_id=928111


in reply to TIMTOWTDI Challenge: Zero'ing Out An Array

No map??

map{pop@array}@array

Late addition:

{pop@array&&redo}