my    $fh = defined $hash{$ita}[0] &&
                    defined $hash{$ita}[1] ? $out : $out1;

##</code><code>##

for my $ita (sort { sort_italian() } keys %hash)


##</code><code>##

print $fh "$ita => ",
                   join(',', map { $_ // () } @{ $hash{$ita} }),
                  "\n";