Here's another "What's a quick and real neat way of...." type question

[Grant McLean]

Shaun McCarthy wrote:
> so if you go: (my($a, $b) = (shift @a, shift @b))[0] you 
> will get the value assigned to a, which will be undef when
> they arrays runs out (assuming the same length thing), which 
> equates to false.

Which could be quite a cool trick assuming the arrays could 
never contain undef, or 0, or '0', or ''.

Grant

=============================================================== 
Grant McLean        BearingPoint Inc - formerly The Web Limited 
+64 4 495 9026           Level 6, 20 Customhouse Quay, Box 1195 
gmclean at bearingpoint.biz                Wellington, New Zealand