printf "Total selected before grep: %d\n", scalar @cumulative_llm_answers;

my @sorted_arr = sort {
    $b->{e_data} <=> $a->{e_data} || $b->{communication} <=> $a->{communication}
} grep {
    $_->{company_employee_count_range} =~ /^(1-3)$/ && (scalar $_->{e_data} > 0.8 || scalar $_->{communication} > 0.8 )
}@cumulative_llm_answers;

my $annotation_hashref = Mhouse_Reports::read_mhouse_annotations_from_folder("./RESULTS");
print Dumper $annotation_hashref ;
my $displayed_field_arrref = [qw(energy_sector automation e_data programming)];
Mhouse_Reports::output_llm_scored_mhouse_json_annotated(\@sorted_arr, "./displayed_list_8.html", $annotation_hashref, $displayed_field_arrref);

# using a hash
    open(my $fh_in, '<', 'hash_by_legalname_1.json') or die "Cannot open file: $!";
    my $json_file_contents = do{local $/; <$fh_in>};
    my $hash_to_use = decode_json($json_file_contents);
    my $legalName = 'Sedinum Stiftung';
    print "$legalName : ";
    print Dumper $hash_to_use->{$legalName};