my $str = do { local $" = ""; "@arr" };