> This seems to work as expected except when sort() is used. The > program and output are below, but to make this on-topic, does > anyone have any better ways to do this? Item 4.6 in the Perl Cookbook goes into myriad ways to do it... xoox, Andy -- # Andy Lester %_=split';','.; Perl ;@;st a;m;ker;p;not;o;hac;t;her;y;ju'; print map $_{$_}, split //, 'andy@petdance.com' ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe