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


in reply to array pop

pop(...) for ( 0 .. 5 );

--MidLifeXis