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