$csv .= ",'$AoH[$_]{name}'" for (0..$#AoH);
$csv =~ s/^,//;