|print join ',', sort unique_list(@list); print "\n"; | |sub unique_list { | return keys %{{ map {($_,undef)} @_ }}; |} If I had to guess I'd say sort is thinking unique_list is its comparison function. Brian ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe