> >> @s = ("fate", "anoints", "idle", "coders"); @a = ("kill", "apropos", > >> "pico", "ispell");print join(' ', ($s[0]..$a[0])[83813], > >> ($s[1]..$a[1])[188889], ($s[2]..$a[2])[123871], > >> ($s[3]..$a[3])[52995357]); Use caution if you want to keep playing with this one... the first two posts were Cc:d to the advocacy list. Do Not Cc: to the advocacy list! We now return you to Fun With Perl... -- -- |\ _,,,---,,_ Vicki Brown <vlb@cfcl.com> ZZZzz /,`.-'`' -. ;-;;,_ Journeyman Sourceror: Scripts & Philtres |,4- ) )-,_. ,\ ( `'-' P.O. Box 1269 San Bruno CA 94066 '---''(_/--' `-'\_) http://www.cfcl.com/~vlb http://www.macperl.com ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe