Here's a snippet that I wrote recently and was encouraged to show to this list. Be careful, if you decide to run it you may have to reboot! AFAIK no one has been able to execute it. And I don't expect it to be executable for a number of years :) @s = qw(fate anoints idle coders); @a = qw(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]); Chip -- Chip Turner chip@ZFx.com Programmer, ZFx, Inc. www.zfx.com PGP key available at wwwkeys.us.pgp.net ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe