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