use Thread::Queue; 
$Q = new Thread::Queue;;

$toQ = join $;, 'abc', 'cde', 'xyz'; 

print $toQ;;
abc∟cde∟xyz

$Q->enqueue( $toQ );;
$fromQ = $Q->dequeue(); 

print $fromQ;;
abc∟cde∟xyz

print split $;, $fromQ;;
abc cde xyz