@AoH =
(
        { name => Adam, age => 0 },
        { name => Bob,  age => 10 },
        { name => Cat,  age => 20 }
);
##</code><code>##

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