my @data;
foreach $head (keys %hoa) {
    push @data, $hoa{$head};
    $item = shift(@data);
    print OUTFILE "$item";
    print OUTFILE ",";
}