push @names, $_->{name} for @AoH; $csv = join "," , map { "'$_'" } @names; #### $csv = join "," , map { "'$_'" } map { $_->{name} } @AoH;