$output = capture("$comando");
...
    $outTitolo = capture("$titolo");

##</code><code>##

    undef my $oreTotali;

##</code><code>##

print FILE "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n";

##</code><code>##

print FILE "\n" x 17;

##</code><code>##

sub count_unique {
    my @array = @_;
    my %count;
    map { $count{$_}++ } @array;

##</code><code>##

sub count_unique {
    my %count;
    $count{$_}++ for @_;