{
   local $" = ''; # see perlvar
   $str = "@arr";
}