Peter Scott writes: > but I just have this thing against creating new variables, however > temporary. Cope. The code you came up with is nasty and slow. I'd fire you if it turned up in code for my company :-) Not that this is much better :-) &{sub { while(@_) { ${+shift} += pop } }}(\$z, \$y, \$x, foo()) Nat ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe