>perl -wMstrict -le
"my @ra = (1,2,3,4,5);
 { $\" = '';  print qq{@ra}; }
"
12345