Sure, just use pack "(J/A)*", @strings instead of join "", @strings to concatenate the strings to a unique key. (On older perls, use I instead of J.)