foreach (@arr) {
      $str .= $_ ;
 }