$str = join q{, }, map qq{"$_"}, @arr;