Select Code to Download

open my $LOG, '<', $logfile or die $!;
my %occurrences;
...
    }
}
return \%occurrences

my %occurrences;
for my $index (0 .. $#log) {
...
    }
}
return \%occurrences