in reply to using pop a lot

pop @array for (1..5);

[download]

Arjen

In Section Seekers of Perl Wisdom