print $fh "$ita => ",
           join(',', grep { defined } @{ $hash{$ita} }),
          "\n";