my $completed_courses = [...];
my $schedule = {...};

##</code><code>##

my %completed;

for (@$completed_courses) {
    $completed{$_->{title}} = undef;
}

##</code><code>##

for (keys %$schedule) {
    delete $schedule->{$_} if exists $completed{$schedule->{$_}{Course}};
}