...

    my $unfinished_bcasts = $Broadcast->unfinished;
            
    my $finished = 0;

    if (! grep { $bcast_id == $_ } @$unfinished_bcasts) {
        $finished = 1;
    }

    $bcast_data->{$bcast_id}{finished} = $finished; 

    ...