Rick Klement schreef op 07 december 2001:
> The one I did that I liked was
>
> sub{shift,pop while@_>2;print@_}->(<>)
How about:
sub a{@_>2?shift^pop^&a:print@_}a<>
Note that ^ is almost the only possible operator between shift, pop and
&a here. Most other operators give either a warning or a fatal error.
Eugene
