This is a pretty trivial bit of fun, but I don't believe I've ever seen a construct like this anywhere before. From some code I'm working on to parse RFC822 addresses: ---------------------------------------------------------------------- use strict; sub enum { eval "sub $_[$_] () { $_ }" or die for 0 .. $#_; } BEGIN { enum SPECIAL => ATOM => COMMENT => QUOTED => DOMAIN => } ---------------------------------------------------------------------- (The fun I'm referring to is using => between several adjacent barewords, and after the final one.) -- Sean McAfee | GCS d->-- s+++: a27 C++ US+++ P+++$ L++ E- W+ N++ | | K w--- O? M- V-- PS+ PE Y+ PGP?>++ t+() 5++ X R+ | mcafee@ | tv+ b++ DI++ D+ G e++ h r---* y+>++ | umich.edu ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe