Currently I am using Threads::Queue and queuing a stiring with '|' delimited and spliting string after dequeing it.

That's the way I would do it also. The time taken to join & split the string is negligable compared to the overhead of locking involved in the transfer of the string from one thread to another. And far less than the overhead involve in Thread::Queue::Any.

It's simple. It works. And if things go wrong, it is easy to debug. Don't throw away that simplicity in search of something "more proper".

You might consider using $; as your join/split delimiter. It is less likely to appear in your data than '|'.