in reply to Redirect array to a socket handle

Are you Suffering from buffering?

print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});