$foo . " XXX '" . (join $", @arr) . "'";