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